# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885810565 0
# Node ID 24c546c71f29c14a2aaf8169ffaf3ab98d3be998
# Parent  eb1c101c6732933470ce0511206710ed3614b05b
(byte-optimize-form-code-walker): Fix previous change.

diff -r eb1c101c6732 -r 24c546c71f29 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Mon Jan 26 10:28:01 1998 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Mon Jan 26 10:29:25 1998 +0000
@@ -511,8 +511,7 @@
 	  ;; Support compiler macros as in cl.el.
 	  ((and (fboundp 'compiler-macroexpand)
 	        (not (eq form
-		         (setq form (compiler-macroexpand form
-		                     byte-compile-macro-environment)))))
+		         (setq form (compiler-macroexpand form)))))
 	   (byte-optimize-form form for-effect))
 	  
 	  ((not (symbolp fn))