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

This commit is contained in:
Stefan Monnier 2005-11-02 21:56:15 +00:00
parent 1c7c774b86
commit 4cd305ac33

View file

@ -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.