From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 21 Feb 1995 21:19:28 +0000 (+0000)
Subject: Improved ANDIFY
X-Git-Tag: 20090517-FFI~6623
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cd46f2cb9b1777ffa6b4210b030b4b4e86930d3d;p=mit-scheme.git

Improved ANDIFY
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index de8044b16..cee21ef53 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.14 1995/02/20 20:13:39 adams Exp $
+$Id: utils.scm,v 1.15 1995/02/21 21:19:28 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -181,7 +181,10 @@ MIT in each case. |#
 	 ,@values))
 
 (define (andify left right)
-  `(IF ,left ,right (QUOTE #F)))
+  (cond ((equal? left '(QUOTE #T))   right)
+	((equal? right '(QUOTE #T))   left)
+	(else
+	 `(IF ,left ,right (QUOTE #F)))))
 
 (define (beginnify actions)
   ;; Flattens the ACTIONS, discarding any in non-tail position that