From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 04:10:18 +0000 (+0000)
Subject: Move SYNTAXER/DEFAULT-ENVIRONMENT into the syntaxer.
X-Git-Tag: 20090517-FFI~2361
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ad11e5ac9211e156dfa430e2e35bd910758b216;p=mit-scheme.git

Move SYNTAXER/DEFAULT-ENVIRONMENT into the syntaxer.
---

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 7a67ab762..d7c1cb3da 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.36 2001/12/19 01:39:46 cph Exp $
+$Id: syntax.scm,v 14.37 2001/12/19 04:10:18 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -36,7 +36,10 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   (set! user-initial-syntax-table
 	(make-syntax-table system-global-syntax-table))
   (set-environment-syntax-table! user-initial-environment
-				 user-initial-syntax-table))
+				 user-initial-syntax-table)
+  (set! syntaxer/default-environment
+	(extend-interpreter-environment system-global-environment))
+  unspecific)
 
 (define system-global-syntax-table)
 (define user-initial-syntax-table)
@@ -476,6 +479,10 @@ 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)))
 
 ;;;; FLUID-LET