diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-02-15 20:40:46 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-02-15 20:40:46 -0500 |
| commit | 1b4442bee921d6698fc8ecac1c95c39f7ca2efe4 (patch) | |
| tree | 48aab38b6253df79621b1f737179660a685cf906 /lisp/emacs-lisp/pcase.el | |
| parent | 8ed8ef307d9a28f6c3336a448c7fbdfe8a733d83 (diff) | |
| download | emacs-1b4442bee921d6698fc8ecac1c95c39f7ca2efe4.tar.gz | |
Don't expand body inside a let-binding when there are no bindings
* lisp/emacs-lisp/pcase.el (pcase-codegen): Only let-bind if VARS
is non-nil.
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 46a5eedd150..289265abf27 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -437,8 +437,10 @@ to this macro." ;; Don't use let*, otherwise macroexp-let* may merge it with some surrounding ;; let* which might prevent the setcar/setcdr in pcase--expand's fancy ;; codegen from later metamorphosing this let into a funcall. - `(let ,(mapcar (lambda (b) (list (car b) (cdr b))) vars) - ,@code)) + (if vars + `(let ,(mapcar (lambda (b) (list (car b) (cdr b))) vars) + ,@code) + `(progn ,@code))) (defun pcase--small-branch-p (code) (and (= 1 (length code)) |