Mercurial > emacs
changeset 13790:10c76db77107
(byte-compile-unfold-lambda): Recursively optimize body.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:32:21 +0000 |
| parents | 7ccb22bca972 |
| children | 1feec098c24d |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))