From 9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 May 2012 17:40:47 -0400 Subject: * lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...). --- lisp/emacs-lisp/pcase.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') 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 -- cgit v1.2.3