# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819567141 0
# Node ID 10c76db77107a70eac3ec56c520838636fee7440
# Parent  7ccb22bca972d8a1a0246f3fe806f01dd0d9e6c3
(byte-compile-unfold-lambda): Recursively optimize body.

diff -r 7ccb22bca972 -r 10c76db77107 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Thu Dec 21 17:30:47 1995 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Dec 21 17:32:21 1995 +0000
@@ -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))