# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1130969912 0
# Node ID 8e414fc88184b76ddf7b374f75c9a796aee98a28
# Parent  eb497460d73a75075711ceef6bbcc5e139a74b45
(byte-optimize-pure-func): Quote the
folded value.

diff -r eb497460d73a -r 8e414fc88184 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 21:56:15 2005 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 22:18:32 2005 +0000
@@ -1135,7 +1135,7 @@
 	  (setq constant nil))
       (setq args (cdr args)))
     (if constant
-	(cons 'quote (eval form))
+	(list 'quote (eval form))
       form)))
 
 ;; Avoid having to write forward-... with a negative arg for speed.