* lisp/emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edb1a65266e670e539ef51c86527ef6f12512529..910cc3522bde803d72ca1e08e56d81edbcaf00b9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.
+
        * emacs-lisp/byte-run.el (defun-declarations-alist): Fix last change.
 
        * subr.el (called-interactively-p-functions): New var.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index a325e0f3e4441c7443fe7c1a6848e0885b8f39a9..60036c86dc0f2625d7d8febcc39b6499082c0a5f 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2509,8 +2509,8 @@ If FORM is a lambda or a macro, byte-compile it as a function."
         (when (symbolp form)
           (unless (memq (car-safe fun) '(closure lambda))
             (error "Don't know how to compile %S" fun))
-          (setq fun (byte-compile--reify-function fun))
-          (setq lexical-binding (eq (car fun) 'closure)))
+          (setq lexical-binding (eq (car fun) 'closure))
+          (setq fun (byte-compile--reify-function fun)))
         (unless (eq (car-safe fun) 'lambda)
           (error "Don't know how to compile %S" fun))
         ;; Expand macros.