From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 6 May 1995 20:57:08 +0000 (+0000)
Subject: Tidying and adding integration declarations.
X-Git-Tag: 20090517-FFI~6332
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f3f9024c9070d2173dc56a3b1edb2fa0599731a;p=mit-scheme.git

Tidying and adding integration declarations.
---

diff --git a/v8/src/compiler/midend/dataflow.scm b/v8/src/compiler/midend/dataflow.scm
index 0afa63d34..5f5d9892d 100644
--- a/v8/src/compiler/midend/dataflow.scm
+++ b/v8/src/compiler/midend/dataflow.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dataflow.scm,v 1.14 1995/05/01 03:36:18 adams Exp $
+$Id: dataflow.scm,v 1.15 1995/05/06 20:57:08 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -2092,7 +2092,7 @@ MIT in each case. |#
       (else
        (vector-grow v (fix:quotient (fix:* (vector-length v) 4) 3)))))
   
-  (define (add! structure item accessor setter!)
+  (define-integrable (add! structure item accessor setter!)
     (let ((set  (accessor structure)))
       (if set
 	  (let ((index  (fix:+ (vector-ref set 0) 1))
@@ -2196,13 +2196,14 @@ MIT in each case. |#
 (define-integrable (node-set/empty? set)
   (eq? set '#F))
 
-(define (node-set/for-each set proc)
-  (if set
-      (let loop ((i  (vector-ref set 0)))
-	(if (fix:> i 0)
-	    (begin
-	      (proc (vector-ref set i))
-	      (loop (fix:- i 1)))))))
+(define-integrable (node-set/for-each set proc)
+  (let ((set set))
+    (if set
+	(let loop ((i  (vector-ref set 0)))
+	  (if (fix:> i 0)
+	      (begin
+		(proc (vector-ref set i))
+		(loop (fix:- i 1))))))))
 
 (define (node-set/size set)
   (if set