Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages 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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

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