Mercurial > emacs
changeset 64393:47148916c99b
(byte-compile-if): Guard the else-clause too.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 18:39:14 +0000 |
| parents | 9f028db3b769 |
| children | f0ee06ae643c |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sat Jul 16 18:38:33 2005 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sat Jul 16 18:39:14 2005 +0000 @@ -3409,7 +3409,8 @@ (byte-compile-form (nth 2 form) for-effect)) (byte-compile-goto 'byte-goto donetag) (byte-compile-out-tag elsetag) - (byte-compile-body (cdr (cdr (cdr form))) for-effect) + (byte-compile-maybe-guarded (list 'not clause) + (byte-compile-body (cdr (cdr (cdr form))) for-effect)) (byte-compile-out-tag donetag)))) (setq for-effect nil))