changeset 66641:eb497460d73a

(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 02 Nov 2005 21:56:15 +0000
parents eb72b7c5a0b9
children 8e414fc88184
files lisp/emacs-lisp/byte-opt.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 21:43:21 2005 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 21:56:15 2005 +0000
@@ -1135,7 +1135,7 @@
 	  (setq constant nil))
       (setq args (cdr args)))
     (if constant
-	(eval form)
+	(cons 'quote (eval form))
       form)))
 
 ;; Avoid having to write forward-... with a negative arg for speed.