(byte-optimize-pure-func): Quote the

folded value.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2005-11-02  Andreas Schwab  <schwab@suse.de>
+
+	* emacs-lisp/byte-opt.el (byte-optimize-pure-func): Quote the
+	folded value.
+
 2005-11-02  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-ui.el (gdb-mouse-until): Make it work in

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
-	(cons 'quote (eval form))
+	(list 'quote (eval form))
       form)))
 
 ;; Avoid having to write forward-... with a negative arg for speed.