Force top-level syntax definitions to be local to the file in which

they appear.

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 9591260ec028bff50388f50aaaee999c13aa9fdc..ddfcb7f238235de3f15a569c40a4661afa238f5d 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.11 1990/01/31 02:03:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.12 1990/04/10 15:53:06 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -213,9 +213,10 @@ MIT in each case. |#
                                  (if (eq? environment default-object)
                                      (repl/environment repl)
                                      environment)
-                                 (if (eq? syntax-table default-object)
-                                     (repl/syntax-table repl)
-                                     syntax-table))))))
+                                 (make-syntax-table
+                                  (if (eq? syntax-table default-object)
+                                      (repl/syntax-table repl)
+                                      syntax-table)))))))
 
 (define (write-stream stream write)
   (if (stream-pair? stream)

diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index 8929000b099947403be6ed4c08f25df38419b407..a12533761c123916f76fe082d676df62c2babb1f 100644 (file)
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.11 1990/01/31 02:03:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.12 1990/04/10 15:53:06 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -213,9 +213,10 @@ MIT in each case. |#
                                  (if (eq? environment default-object)
                                      (repl/environment repl)
                                      environment)
-                                 (if (eq? syntax-table default-object)
-                                     (repl/syntax-table repl)
-                                     syntax-table))))))
+                                 (make-syntax-table
+                                  (if (eq? syntax-table default-object)
+                                      (repl/syntax-table repl)
+                                      syntax-table)))))))
 
 (define (write-stream stream write)
   (if (stream-pair? stream)