From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 13 Dec 2002 19:52:46 +0000 (+0000)
Subject: (byte-optimize-form-code-walker):
X-Git-Tag: ttn-vms-21-2-B4~12020
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8f3c355cf98d3df5054ad1f277fc053ce65870e;p=emacs.git

(byte-optimize-form-code-walker):
Optimize the remaining part of for-effect and/or expressions.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 2e29e467d92..8a44ea020f3 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -467,7 +467,7 @@
 		     (byte-compile-log
 		      "  all subforms of %s called for effect; deleted" form))
 		 (and backwards
-		      (cons fn (nreverse backwards))))
+		      (cons fn (nreverse (mapcar 'byte-optimize-form backwards)))))
 	     (cons fn (mapcar 'byte-optimize-form (cdr form)))))
 
 	  ((eq fn 'interactive)
@@ -1159,6 +1159,8 @@
 
 (put 'featurep 'byte-optimizer 'byte-optimize-featurep)
 (defun byte-optimize-featurep (form)
+  ;; Emacs-21's byte-code doesn't run under XEmacs anyway, so we can
+  ;; safely optimize away this test.
   (if (equal '((quote xemacs)) (cdr-safe form))
       nil
     form))