changeset 77085:4f239924057d

Remove spurious debugging code.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 09 Apr 2007 16:33:01 +0000
parents e4064040a3af
children 8a7e4a9d6e94
files lisp/emacs-lisp/byte-opt.el
diffstat 1 files changed, 0 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Mon Apr 09 13:33:52 2007 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Mon Apr 09 16:33:01 2007 +0000
@@ -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)))