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

they appear.

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 1fb57d5278fc01d2566757fae902ec0b0c7dff98..822bdd23527c33608046c536a45fac183f83148f 100644 (file)
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.10 1990/03/26 20:49:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.11 1990/04/10 15:46:20 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -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 10 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 11 '()))
\ No newline at end of file

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index 6744c8ff25df11dff5588e11eb8f4a3a7159cc0f..8bdb981deba2da7bfb0eeb83a91571feba4f28f5 100644 (file)
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.6 1990/03/26 20:44:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.7 1990/04/10 15:46:39 cph Rel $
 
-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
@@ -380,9 +380,10 @@ Currently only the 68000 implementation needs this."
 (define (phase:syntax s-expression #!optional syntax-table)
   (mark-phase "Syntax")
   (syntax* s-expression
-          (if (or (default-object? syntax-table) (not syntax-table))
-              (make-syntax-table system-global-syntax-table)
-              syntax-table)))
+          (make-syntax-table
+           (if (or (default-object? syntax-table) (not syntax-table))
+               system-global-syntax-table
+               syntax-table))))
 
 (define (phase:transform scode)
   (mark-phase "Transform")

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 1b0e22e2a589e88cf864f058f06a369f353048fc..d1f5fa01c104a0edfb37f17d8d069d23e61f04d5 100644 (file)
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.10 1990/03/26 20:49:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.11 1990/04/10 15:46:20 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -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 10 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 11 '()))
\ No newline at end of file

diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index ae718ec0c0da3b63553c18386f9694a3fee1643c..e87b3e7ea8dd2902bbd4623dd7a1a32db80861ae 100644 (file)
--- a/v8/src/sf/toplev.scm
+++ b/v8/src/sf/toplev.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.6 1990/03/26 20:44:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.7 1990/04/10 15:46:39 cph Rel $
 
-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
@@ -380,9 +380,10 @@ Currently only the 68000 implementation needs this."
 (define (phase:syntax s-expression #!optional syntax-table)
   (mark-phase "Syntax")
   (syntax* s-expression
-          (if (or (default-object? syntax-table) (not syntax-table))
-              (make-syntax-table system-global-syntax-table)
-              syntax-table)))
+          (make-syntax-table
+           (if (or (default-object? syntax-table) (not syntax-table))
+               system-global-syntax-table
+               syntax-table))))
 
 (define (phase:transform scode)
   (mark-phase "Transform")