Move SYNTAXER/DEFAULT-ENVIRONMENT into the syntaxer.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 2726a15856e72eeac6c1eec03fb2dbf530b74042..a98ebbfa58bb1fa6727812276300b41742aea038 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.55 2001/12/18 18:39:33 cph Exp $
+$Id: global.scm,v 14.56 2001/12/19 04:11:15 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -215,10 +215,6 @@ USA.
 (define default/quit %quit)
 (define hook/quit default/quit)
 
-(define syntaxer/default-environment
-  (*make-environment system-global-environment
-                    (vector lambda-tag:unnamed)))
-
 (define user-initial-environment
   (*make-environment system-global-environment
                     (vector lambda-tag:unnamed)))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 64bd263bf10a247f5fdc6229fa3a1e8b9a552655..06f6e1f34d82a37fa4f06536fa945d8ed45e0bce 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.388 2001/12/19 01:39:36 cph Exp $
+$Id: runtime.pkg,v 14.389 2001/12/19 04:11:02 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -315,7 +315,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          set-cell-contents!
          set-interrupt-enables!
          show-time
-         syntaxer/default-environment
          system-hunk3-cons
          system-hunk3-cxr0
          system-hunk3-cxr1

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index d7c1cb3da797b9e291c99cffe61719346dbb87ea..1d87204b7011e7c77d9759020c2e19289ebee7a4 100644 (file)
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.37 2001/12/19 04:10:18 cph Exp $
+$Id: syntax.scm,v 14.38 2001/12/19 04:12:03 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -480,9 +480,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 (define-integrable (syntax-eval scode)
   (extended-scode-eval scode syntaxer/default-environment))
 
-(define syntaxer/default-environment
-  (*make-environment system-global-environment
-                    (vector lambda-tag:unnamed)))
+(define syntaxer/default-environment)
 \f
 ;;;; FLUID-LET
 

diff --git a/v7/src/sf/sf.pkg b/v7/src/sf/sf.pkg
index 0c032bedf70df652fdd6dcf2bc787361c6bd10bf..fe8bd4b78ee37fced1499263d310a02c7c6983a7 100644 (file)
--- a/v7/src/sf/sf.pkg
+++ b/v7/src/sf/sf.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sf.pkg,v 4.12 2001/12/17 17:40:59 cph Exp $
+$Id: sf.pkg,v 4.13 2001/12/19 04:10:28 cph Exp $
 
 Copyright (c) 1987-1999, 2001 Massachusetts Institute of Technology
 
@@ -117,7 +117,9 @@ USA.
          declarations/map
          declarations/original
          declarations/parse
-         operations->external))
+         operations->external)
+  (import (runtime syntaxer)
+         syntaxer/default-environment))
 
 (define-package (scode-optimizer copy)
   (files "copy")