Commit 306e7308 authored by Nathan Trapuzzano's avatar Nathan Trapuzzano Committed by Stefan Monnier
Browse files

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

Fixes: debbugs:15786
parent 7f851ea4
2013-11-04 Nathan Trapuzzano <nbtrap@nbtrap.com> (tiny change)
* emacs-lisp/cconv.el (cconv-convert): Check form of let binding
(bug#15786).
2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> 2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding. * emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding.
......
...@@ -289,12 +289,15 @@ places where they originally did not directly appear." ...@@ -289,12 +289,15 @@ places where they originally did not directly appear."
(dolist (binder binders) (dolist (binder binders)
(let* ((value nil) (let* ((value nil)
(var (if (not (consp binder)) (var (if (not (consp binder))
(prog1 binder (setq binder (list binder))) (prog1 binder (setq binder (list binder)))
(setq value (cadr binder)) (cl-assert (null (cdr (cdr binder))) nil
(car binder))) "malformed let binding: `%s'"
(new-val (prin1-to-string binder))
(cond (setq value (cadr binder))
(car binder)))
(new-val
(cond
;; Check if var is a candidate for lambda lifting. ;; Check if var is a candidate for lambda lifting.
((and (member (cons binder form) cconv-lambda-candidates) ((and (member (cons binder form) cconv-lambda-candidates)
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment