[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104437: * bytecomp.el (byte-compile-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104437: * bytecomp.el (byte-compile-defvar): Add note about quoted lambda. |
Date: |
Mon, 30 May 2011 14:14:19 -0300 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104437
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-30 14:14:19 -0300
message:
* bytecomp.el (byte-compile-defvar): Add note about quoted lambda.
modified:
lisp/emacs-lisp/bytecomp.el
=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el 2011-05-23 01:15:17 +0000
+++ b/lisp/emacs-lisp/bytecomp.el 2011-05-30 17:14:19 +0000
@@ -4155,6 +4155,8 @@
(if (eq fun 'defconst)
;; `defconst' sets `var' unconditionally.
(let ((tmp (make-symbol "defconst-tmp-var")))
+ ;; Quote with `quote' to prevent byte-compiling the body,
+ ;; which would lead to an inf-loop.
`(funcall '(lambda (,tmp) (defconst ,var ,tmp))
,value))
;; `defvar' sets `var' only when unbound.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104437: * bytecomp.el (byte-compile-defvar): Add note about quoted lambda.,
Stefan Monnier <=