diff options
| author | Richard M. Stallman | 1998-01-26 10:29:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-26 10:29:25 +0000 |
| commit | b8ba68e52bd2002eb086568b1938bb5e38408850 (patch) | |
| tree | 1ddc5aa25a4de4b3950e8c83ef01604d4b030b96 /lisp | |
| parent | 713ea1de588216c7acaea84bf62224e7e85374f5 (diff) | |
| download | emacs-b8ba68e52bd2002eb086568b1938bb5e38408850.tar.gz emacs-b8ba68e52bd2002eb086568b1938bb5e38408850.zip | |
(byte-optimize-form-code-walker): Fix previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index cbfc5c7d800..64280a4d549 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -511,8 +511,7 @@ | |||
| 511 | ;; Support compiler macros as in cl.el. | 511 | ;; Support compiler macros as in cl.el. |
| 512 | ((and (fboundp 'compiler-macroexpand) | 512 | ((and (fboundp 'compiler-macroexpand) |
| 513 | (not (eq form | 513 | (not (eq form |
| 514 | (setq form (compiler-macroexpand form | 514 | (setq form (compiler-macroexpand form))))) |
| 515 | byte-compile-macro-environment))))) | ||
| 516 | (byte-optimize-form form for-effect)) | 515 | (byte-optimize-form form for-effect)) |
| 517 | 516 | ||
| 518 | ((not (symbolp fn)) | 517 | ((not (symbolp fn)) |