From 92751e420f01e9d140861c670e6b431de95f4dfc Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 21 Dec 1995 17:32:21 +0000 Subject: [PATCH] (byte-compile-unfold-lambda): Recursively optimize body. --- lisp/emacs-lisp/byte-opt.el | 1 + 1 file changed, 1 insertion(+) 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)) -- 2.39.2