Don't integrate references to dynamic-state primitives.

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 2d912a0227e75e30b7603f75fe690751aadb08d0..286fd84111c54d6e961df3e2f1de9c2eb98a8a0a 100644 (file)
--- 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 4551e3f6e41e3c18dbeedebed331747a22e547a8..c84964aa4f8ab66fb3b611d22a0f0d6717424904 100644 (file)
--- 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 539bc980d27cc58de3c0774654d6d882d82151a8..f29f02700666351ba221d9c2974f80df385dabe1 100644 (file)
--- 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