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

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/04/09 16:33:01

Index: byte-opt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/byte-opt.el,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -b -r1.90 -r1.91
--- byte-opt.el 6 Apr 2007 18:22:23 -0000       1.90
+++ byte-opt.el 9 Apr 2007 16:33:01 -0000       1.91
@@ -534,7 +534,6 @@
                    (eq tmp 'error-free)
                    ;; Detect the expansion of (pop foo).
                    ;; There is no need to compile the call to `car' there.
-                   (progn (setq foo (list form fn)) nil)
                    (and (eq fn 'car)
                         (eq (car-safe (cadr form)) 'prog1)
                         (let ((var (cadr (cadr form)))