Commit 4cd305ac authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 1c7c774b
...@@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time." ...@@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time."
(setq constant nil)) (setq constant nil))
(setq args (cdr args))) (setq args (cdr args)))
(if constant (if constant
(eval form) (cons 'quote (eval form))
form))) form)))
;; Avoid having to write forward-... with a negative arg for speed. ;; Avoid having to write forward-... with a negative arg for speed.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment