diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-20 14:05:20 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-20 14:05:20 -0500 |
commit | 5d0ccd9509a21ef18e60004a4d46e60a916e4a36 (patch) | |
tree | ca5fc0c1ae8bf5d4a5b7dbe0c695b4c22e8ebacd /lisp/emacs-lisp | |
parent | 3837d988dd8892064c86ee483c6f09b2bacd7604 (diff) | |
download | emacs-5d0ccd9509a21ef18e60004a4d46e60a916e4a36.tar.gz emacs-5d0ccd9509a21ef18e60004a4d46e60a916e4a36.tar.bz2 emacs-5d0ccd9509a21ef18e60004a4d46e60a916e4a36.zip |
* lisp/emacs-lisp/bytecomp.el (byte-compile): Fix handling of closures.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 2 insertions, 2 deletions
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. |