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>
* emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding.
......
......@@ -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
......
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