procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).

Browse source
This commit is contained in:
Stefan Monnier 2012-05-17 17:40:47 -04:00
parent b1198e177f
commit 9abdc45d8a
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/pcase.el
View file

@ -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