From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 25 Jan 1995 20:20:56 +0000 (+0000)
Subject: Fixed form/simple? (was not looking af if/alternate).
X-Git-Tag: 20090517-FFI~6703
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e11982e54f6c3172a156ed7049b04934fdd939e1;p=mit-scheme.git

Fixed form/simple? (was not looking af if/alternate).
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 7d75d11f7..4996b1cd4 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.9 1995/01/22 16:20:56 adams Exp $
+$Id: utils.scm,v 1.10 1995/01/25 20:20:56 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -547,9 +547,9 @@ Example use of FORM/COPY-TRANSFORMING:
        (case (car form)
 	 ((LOOKUP QUOTE LAMBDA) true)
 	 ((IF)
-	  (and (form/simple&side-effect-free? (cadr form))
-	       (form/simple&side-effect-free? (caddr form))
-	       (form/simple&side-effect-free? (caddr form))))
+	  (and (form/simple&side-effect-free? (if/predicate form))
+	       (form/simple&side-effect-free? (if/consequent form))
+	       (form/simple&side-effect-free? (if/alternate form))))
 	 ((CALL)
 	  (let ((rator (call/operator form)))
 	    (and (QUOTE/? rator)