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

1995-12-21 17:32:21 +00:00 · 1995-12-21 17:32:21 +00:00 · 92751e420f
commit 92751e420f
parent 560fcebc15
1 changed files with 1 additions and 0 deletions
--- 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))