From e11982e54f6c3172a156ed7049b04934fdd939e1 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 25 Jan 1995 20:20:56 +0000 Subject: [PATCH] Fixed form/simple? (was not looking af if/alternate). --- v8/src/compiler/midend/utils.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.25.1