]> code.delx.au - gnu-emacs/commitdiff
(byte-compile-if): Guard the else-clause too.
authorRichard M. Stallman <rms@gnu.org>
Sat, 16 Jul 2005 18:39:14 +0000 (18:39 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 16 Jul 2005 18:39:14 +0000 (18:39 +0000)
lisp/emacs-lisp/bytecomp.el

index 21d7cd001cf19caa779f12a230085b608b1faeb2..92d594945a3e04d87266cf40865916a7e08fd08f 100644 (file)
@@ -3409,7 +3409,8 @@ warnings during execution of BODY."
          (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))