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

* lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of

Browse source 
throwing error over malformed let/let*.

Fixes: debbugs:15814
This commit is contained in:
Nathan Trapuzzano 2013-11-10 23:55:39 -05:00 • committed by Stefan Monnier
parent 122a7e463a
commit 608c2085c4
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -291,9 +291,9 @@ places where they originally did not directly appear."
(let* ((value nil)
(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))
(when (cddr binder)
(byte-compile-log-warning
(format "Malformed `%S' binding: %S" letsym binder)))
(setq value (cadr binder))
(car binder)))
(new-val