From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 2 Nov 2005 21:56:15 +0000 (+0000)
Subject: (byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.
X-Git-Tag: emacs-pretest-22.0.90~6111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cd305ac3392e312cc124b9b7c682e06e38e9ea6;p=emacs.git

(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 940b4869f51..1cda03ad0d5 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time."
 	  (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.