[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.173 
emacs/lisp/emacs-lisp/bytecomp.el:2.174
*** emacs/lisp/emacs-lisp/bytecomp.el:2.173     Sat Jul 16 18:27:25 2005
--- emacs/lisp/emacs-lisp/bytecomp.el   Sat Jul 16 18:39:14 2005
***************
*** 3409,3415 ****
          (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-out-tag donetag))))
    (setq for-effect nil))
  
--- 3409,3416 ----
          (byte-compile-form (nth 2 form) for-effect))
        (byte-compile-goto 'byte-goto donetag)
        (byte-compile-out-tag elsetag)
!       (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))