From 4e8af2adfcef375d182b5351b555abea62bac1ad Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Feb 1992 15:10:16 +0000
Subject: [PATCH] Don't integrate references to dynamic-state primitives.

---
 v7/src/sf/gconst.scm | 9 ++-------
 v7/src/sf/make.scm   | 6 +++---
 v8/src/sf/make.scm   | 6 +++---
 3 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 2d912a022..286fd8411 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.12 1991/08/14 02:08:29 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.13 1992/02/08 15:10:14 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -84,7 +84,6 @@ MIT in each case. |#
     ENABLE-INTERRUPTS!
     EQ?
     ERROR-PROCEDURE
-    EXECUTE-AT-NEW-STATE-POINT
     FALSE
     FALSE?
     FIX:*
@@ -146,7 +145,6 @@ MIT in each case. |#
     FORCE
     GENERAL-CAR-CDR
     GET-FIXED-OBJECTS-VECTOR
-    GET-FLUID-BINDINGS
     GET-NEXT-CONSTANT
     HUNK3-CONS
     INT:*
@@ -215,8 +213,6 @@ MIT in each case. |#
     SET-CAR!
     SET-CDR!
     SET-CELL-CONTENTS!
-    SET-CURRENT-DYNAMIC-STATE!
-    SET-FLUID-BINDINGS!
     SET-INTERRUPT-ENABLES!
     SET-STRING-LENGTH!
     STRING->SYMBOL
@@ -265,7 +261,6 @@ MIT in each case. |#
     SYSTEM-VECTOR-SET!
     SYSTEM-VECTOR?
     THE-EMPTY-STREAM
-    TRANSLATE-TO-STATE-POINT
     TRUE
     UNDEFINED-CONDITIONAL-BRANCH
     UNSIGNED-INTEGER->BIT-STRING
diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 4551e3f6e..c84964aa4 100644
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.22 1991/11/04 20:31:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.23 1992/02/08 15:10:16 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
 		    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 22 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 23 '()))
\ No newline at end of file
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 539bc980d..f29f02700 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.22 1991/11/04 20:31:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.23 1992/02/08 15:10:16 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
 		    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 22 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 23 '()))
\ No newline at end of file
-- 
2.25.1