diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 17:40:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 17:40:47 -0400 |
| commit | 9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed (patch) | |
| tree | 184d497787af40fbd3c37800bb729daac113ee60 /lisp/emacs-lisp/pcase.el | |
| parent | b1198e177ffc930aaf60c66f1a0b3d54db8ba3b1 (diff) | |
| download | emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.tar.gz emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.tar.bz2 emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 28eaa3d3455..67b19443967 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -557,7 +557,8 @@ Otherwise, it defers to REST which is a list of branches of the form (let ((newsym (make-symbol "x"))) (push (list newsym sym) env) (setq sym newsym))) - (if (functionp exp) `(,exp ,sym) + (if (functionp exp) + `(funcall #',exp ,sym) `(,@exp ,sym))))) (if (null vs) call |