diff options
| author | Stefan Monnier | 2004-04-12 03:11:10 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-04-12 03:11:10 +0000 |
| commit | 7d0e09557ffdbad584b3783db4fba99a5b6444ac (patch) | |
| tree | 8125de585efeff31e13e973ed15f7afb50144478 | |
| parent | 6f480c7a389fc851d17375ecbc39782d3049731a (diff) | |
| download | emacs-7d0e09557ffdbad584b3783db4fba99a5b6444ac.tar.gz emacs-7d0e09557ffdbad584b3783db4fba99a5b6444ac.zip | |
(byte-compile-cond): Fix last change.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 220a7d8d92d..32d6694b060 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -3377,12 +3377,13 @@ being undefined will be suppressed." | |||
| 3377 | (byte-compile-goto 'byte-goto donetag) | 3377 | (byte-compile-goto 'byte-goto donetag) |
| 3378 | (byte-compile-out-tag nexttag))))) | 3378 | (byte-compile-out-tag nexttag))))) |
| 3379 | ;; Last clause | 3379 | ;; Last clause |
| 3380 | (and (cdr clause) (not (eq (car clause) t)) | 3380 | (let ((guard (car clause))) |
| 3381 | (progn (byte-compile-maybe-guarded (car clause) | 3381 | (and (cdr clause) (not (eq guard t)) |
| 3382 | (byte-compile-form (car clause))) | 3382 | (progn (byte-compile-form guard) |
| 3383 | (byte-compile-goto-if nil for-effect donetag) | 3383 | (byte-compile-goto-if nil for-effect donetag) |
| 3384 | (setq clause (cdr clause)))) | 3384 | (setq clause (cdr clause)))) |
| 3385 | (byte-compile-body-do-effect clause) | 3385 | (byte-compile-maybe-guarded guard |
| 3386 | (byte-compile-body-do-effect clause))) | ||
| 3386 | (byte-compile-out-tag donetag))) | 3387 | (byte-compile-out-tag donetag))) |
| 3387 | 3388 | ||
| 3388 | (defun byte-compile-and (form) | 3389 | (defun byte-compile-and (form) |