mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 01:20:28 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cconv.el (cconv-convert): Check form of let binding.

Browse source 
Fixes: debbugs:15786
This commit is contained in:
Nathan Trapuzzano 2013-11-04 14:48:07 -05:00 • committed by Stefan Monnier
parent 7f851ea43b
commit 306e7308ba
2 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/cconv.el
View file

@ -289,12 +289,15 @@ places where they originally did not directly appear."
(dolist (binder binders)
(let* ((value nil)
(var (if (not (consp binder))
(prog1 binder (setq binder (list binder)))
(setq value (cadr binder))
(car binder)))
(new-val
(cond
(var (if (not (consp binder))
(prog1 binder (setq binder (list binder)))
(cl-assert (null (cdr (cdr binder))) nil
"malformed let binding: `%s'"
(prin1-to-string binder))
(setq value (cadr binder))
(car binder)))
(new-val
(cond
;; Check if var is a candidate for lambda lifting.
((and (member (cons binder form) cconv-lambda-candidates)
(progn