From 75a8ed859ce3396a472bee42681b7ae822955b84 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 11 Feb 1995 03:16:45 +0000
Subject: [PATCH] Tidied check for static form.

---
 v8/src/compiler/midend/simplify.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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.
-- 
2.25.1