diff options
| -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) |