From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Dec 1988 21:51:40 +0000 (+0000)
Subject: * Make necessary changes to convert `block' to `context'.
X-Git-Tag: 20090517-FFI~12381
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1c818270826652aff5a019b20ba359fe1f69f049;p=mit-scheme.git

* Make necessary changes to convert `block' to `context'.

* Initialize the contexts at the end of FG generation.
---

diff --git a/v7/src/compiler/fggen/fggen.scm b/v7/src/compiler/fggen/fggen.scm
index 44ca47740..565ea8252 100644
--- a/v7/src/compiler/fggen/fggen.scm
+++ b/v7/src/compiler/fggen/fggen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.11 1988/11/01 04:50:09 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.12 1988/12/12 21:51:40 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -66,6 +66,7 @@ MIT in each case. |#
 	  (for-each (lambda (continuation)
 		      (set-virtual-continuation/parent! continuation false))
 		    *virtual-continuations*)
+	  (initialize-reference-contexts! expression *procedures*)
 	  expression)))))
 
 (define (make-variables block names)
@@ -255,8 +256,8 @@ MIT in each case. |#
       (make-null-cfg)))
 
 (define-integrable (continue/predicate block continuation rvalue)
-  block continuation ;; ignored
-  (make-true-test rvalue))
+  continuation ;; ignored
+  (make-true-test block rvalue))
 
 (define (continue/value block continuation rvalue)
   (if (virtual-continuation? continuation)
@@ -354,7 +355,7 @@ MIT in each case. |#
 					     ,@names))
 	       (if closure-block
 		   (let ((proc (kernel)))
-		     (set-procedure-closure-block! proc closure-block)
+		     (set-procedure-closure-context! proc closure-block)
 		     proc)
 		   (kernel))))))))))
 
@@ -515,7 +516,8 @@ MIT in each case. |#
 		      (make-scfg
 		       (cfg-entry-node (make-combination push continuation))
 		       (continuation/next-hooks continuation))
-		      (make-true-test (continuation/rvalue continuation)))))))
+		      (make-true-test block
+				      (continuation/rvalue continuation)))))))
 	   (lambda ()
 	     (with-reified-continuation block
 					continuation