From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 11 Feb 1995 03:16:45 +0000 (+0000)
Subject: Tidied check for static form.
X-Git-Tag: 20090517-FFI~6654
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=75a8ed859ce3396a472bee42681b7ae822955b84;p=mit-scheme.git

Tidied check for static form.
---

diff --git a/v8/src/compiler/midend/simplify.scm b/v8/src/compiler/midend/simplify.scm
index e2afd41b5..99d20b2ea 100644
--- a/v8/src/compiler/midend/simplify.scm
+++ b/v8/src/compiler/midend/simplify.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: simplify.scm,v 1.3 1995/02/11 01:58:44 adams Exp $
+$Id: simplify.scm,v 1.4 1995/02/11 03:16:45 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -352,7 +352,7 @@ MIT in each case. |#
       (and *after-cps-conversion?*
 	   (CALL/? body)
 	   (form/simple&side-effect-free? value)
-	   (not (form/satisfies? value '(STATIC))))))
+	   (not (form/static? value)))))
 
 ;; Note: this only works if no variable free in value is captured
 ;; at any reference in node.