From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 17 May 2012 21:40:47 +0000 (-0400)
Subject: * lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).
X-Git-Tag: emacs-24.2.90~471^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdb8217ed2c..043797ba7ee 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-05-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).
+
 	* emacs-lisp/cl.el: Add edebug specs from cl-specs.el.
 	* emacs-lisp/cl-macs.el: Idem.
 	* emacs-lisp/cl-specs.el: Remove.
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