# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121539154 0
# Node ID 47148916c99be557350d69f3cc61684d341ade35
# Parent  9f028db3b7690b219381e1e3fafc1f4aec031f9c
(byte-compile-if): Guard the else-clause too.

diff -r 9f028db3b769 -r 47148916c99b lisp/emacs-lisp/bytecomp.el
--- 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))