# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1130968575 0
# Node ID eb497460d73a75075711ceef6bbcc5e139a74b45
# Parent  eb72b7c5a0b98120cb97fd80f00822e9fac34874
(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.

diff -r eb72b7c5a0b9 -r eb497460d73a lisp/emacs-lisp/byte-opt.el
--- 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.