diff options
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 669b6c76417..d8dbfa62bf9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -510,9 +510,7 @@ There can be multiple entries for the same NAME if it has several aliases.") (while (progn ;; First, optimize all sub-forms of this one. - (setq form - (macroexp-preserve-posification - form (byte-optimize-form-code-walker form for-effect))) + (setq form (byte-optimize-form-code-walker form for-effect)) ;; If a form-specific optimizer is available, run it and start over ;; until a fixpoint has been reached. @@ -521,8 +519,7 @@ There can be multiple entries for the same NAME if it has several aliases.") (let ((opt (byte-opt--fget (car form) 'byte-optimizer))) (and opt (let ((old form) - (new (macroexp-preserve-posification - form (funcall opt form)))) + (new (funcall opt form))) (byte-compile-log " %s\t==>\t%s" old new) (setq form new) (not (eq new old)))))))) |