# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1176136381 0
# Node ID 4f239924057d895e69b555a83f1c546555a79e30
# Parent  e4064040a3afeb9997e1b940a8381cf1ec5adef1
Remove spurious debugging code.

diff -r e4064040a3af -r 4f239924057d lisp/emacs-lisp/byte-opt.el
--- 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)))