diff options
author | Nathan Trapuzzano <nbtrap@nbtrap.com> | 2013-11-10 23:55:39 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-10 23:55:39 -0500 |
commit | 608c2085c4a3c9ae99a8f08d89da72cb080be412 (patch) | |
tree | e531d0e6e55ce19aec96a387f3fd97a7a787c0a2 /lisp/emacs-lisp | |
parent | 122a7e463a3a4db38d15b710688bc7286745f656 (diff) | |
download | emacs-608c2085c4a3c9ae99a8f08d89da72cb080be412.tar.gz |
* lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of
throwing error over malformed let/let*.
Fixes: debbugs:15814
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/cconv.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index 2a236b35e56..f4f55667729 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -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 |