[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/03 03:38:22

Index: emacs-lisp/byte-opt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/byte-opt.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- emacs-lisp/byte-opt.el      1 Feb 2008 16:01:26 -0000       1.109
+++ emacs-lisp/byte-opt.el      3 Mar 2008 03:38:20 -0000       1.110
@@ -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