diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:32:21 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:32:21 +0000 |
| commit | 92751e420f01e9d140861c670e6b431de95f4dfc (patch) | |
| tree | 68642f1b659ae04e273ae3b7af7641945ff494b5 /lisp/emacs-lisp | |
| parent | 560fcebc15dbfff239add814f75d062158cc5893 (diff) | |
| download | emacs-92751e420f01e9d140861c670e6b431de95f4dfc.tar.gz | |
(byte-compile-unfold-lambda): Recursively optimize body.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |