diff options
| author | Chong Yidong | 2007-04-09 16:33:01 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-04-09 16:33:01 +0000 |
| commit | e5a858825f5b88aba7c41eced26f43974cbed89e (patch) | |
| tree | 0afe7d6a8fe5254d304e0c312ff0bcad38fdccd0 | |
| parent | 5ac8d2e86dbdec700bb84432c2f0d00b1ae0f8ff (diff) | |
| download | emacs-e5a858825f5b88aba7c41eced26f43974cbed89e.tar.gz emacs-e5a858825f5b88aba7c41eced26f43974cbed89e.zip | |
Remove spurious debugging code.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 93d76c52076..5215e6e9db7 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -534,7 +534,6 @@ | |||
| 534 | (eq tmp 'error-free) | 534 | (eq tmp 'error-free) |
| 535 | ;; Detect the expansion of (pop foo). | 535 | ;; Detect the expansion of (pop foo). |
| 536 | ;; There is no need to compile the call to `car' there. | 536 | ;; There is no need to compile the call to `car' there. |
| 537 | (progn (setq foo (list form fn)) nil) | ||
| 538 | (and (eq fn 'car) | 537 | (and (eq fn 'car) |
| 539 | (eq (car-safe (cadr form)) 'prog1) | 538 | (eq (car-safe (cadr form)) 'prog1) |
| 540 | (let ((var (cadr (cadr form))) | 539 | (let ((var (cadr (cadr form))) |