From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 20 Nov 2012 19:05:20 +0000 (-0500)
Subject: * lisp/emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.
X-Git-Tag: emacs-24.3.90~173^2~18^2~40
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d0ccd9509a21ef18e60004a4d46e60a916e4a36;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edb1a65266e..910cc3522bd 100644
--- 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 a325e0f3e44..60036c86dc0 100644
--- 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.