Mercurial > emacs
changeset 92426:646c75baf82e
(byte-optimize-form-code-walker):
Walk into the body of lambdas after byte-compile-unfold-lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 03 Mar 2008 03:38:21 +0000 |
| parents | c6c2c9daee54 |
| children | 31b671bf1dfc |
| files | lisp/ChangeLog lisp/emacs-lisp/byte-opt.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Mar 03 03:28:41 2008 +0000 +++ b/lisp/ChangeLog Mon Mar 03 03:38:21 2008 +0000 @@ -1,3 +1,8 @@ +2008-03-03 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/byte-opt.el (byte-optimize-form-code-walker): + Walk into the body of lambdas after byte-compile-unfold-lambda. + 2008-03-03 Glenn Morris <rgm@gnu.org> * emulation/viper-util.el (viper-frame-value): Prefer buffer-local
--- a/lisp/emacs-lisp/byte-opt.el Mon Mar 03 03:28:41 2008 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon Mar 03 03:38:21 2008 +0000 @@ -383,7 +383,9 @@ form)) ((or (byte-code-function-p fn) (eq 'lambda (car-safe fn))) - (byte-compile-unfold-lambda form)) + (byte-optimize-form-code-walker + (byte-compile-unfold-lambda form) + for-effect)) ((memq fn '(let let*)) ;; recursively enter the optimizer for the bindings and body ;; of a let or let*. This for depth-firstness: forms that