From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 21 Dec 1995 17:32:21 +0000 (+0000)
Subject: (byte-compile-unfold-lambda): Recursively optimize body.
X-Git-Tag: emacs-19.34~2070
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92751e420f01e9d140861c670e6b431de95f4dfc;p=emacs.git

(byte-compile-unfold-lambda): Recursively optimize body.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 41ebdd8584d..29fcd26d07f 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -328,6 +328,7 @@
 		(byte-compile-warn
 		 "attempt to open-code %s with too many arguments" name))
 	    form)
+	(setq body (mapcar 'byte-optimize-form body))
 	(let ((newform 
 	       (if bindings
 		   (cons 'let (cons (nreverse bindings) body))