diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 2caaadc9f9e..06257a9a2da 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -514,6 +514,7 @@ There can be multiple entries for the same NAME if it has several aliases.") (byte-optimize-form form for-effect))) (defun byte-optimize-form (form &optional for-effect) + (push form byte-compile-form-stack) (while (progn ;; First, optimize all sub-forms of this one. @@ -530,6 +531,7 @@ There can be multiple entries for the same NAME if it has several aliases.") (byte-compile-log " %s\t==>\t%s" old new) (setq form new) (not (eq new old)))))))) + (pop byte-compile-form-stack) form) (defun byte-optimize--rename-var-body (var new-var body) |