[Emacs-diffs] /srv/bzr/emacs/trunk r110963: * lisp/emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.

[Stefan Monnier]

------------------------------------------------------------
revno: 110963
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-11-20 14:05:20 -0500
message:
  * lisp/emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-20 17:54:00 +0000
+++ b/lisp/ChangeLog    2012-11-20 19:05:20 +0000
@@ -1,5 +1,7 @@
 2012-11-20  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2012-11-09 15:56:51 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2012-11-20 19:05:20 +0000
@@ -2509,8 +2509,8 @@
         (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.