From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 21:41:14 +0000 (+0000)
Subject: Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.
X-Git-Tag: 20090517-FFI~2353
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=77f5082f5c31ef363e1be259166de7112c61ece3;p=mit-scheme.git

Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index e36bb01a4..ab9a4a23d 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.390 2001/12/19 05:22:04 cph Exp $
+$Id: runtime.pkg,v 14.391 2001/12/19 21:41:07 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -3809,8 +3809,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 (define-package (runtime system-macros)
   (files "sysmac")
   (parent (runtime))
-  (export ()
-	  syntax-table/system-internal)
   (initialization (initialize-package!)))
 
 (define-package (runtime truncated-string-output)
diff --git a/v7/src/runtime/sysmac.scm b/v7/src/runtime/sysmac.scm
index b0b7338cb..3269a4edc 100644
--- a/v7/src/runtime/sysmac.scm
+++ b/v7/src/runtime/sysmac.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sysmac.scm,v 14.4 2001/12/18 21:55:54 cph Exp $
+$Id: sysmac.scm,v 14.5 2001/12/19 21:41:14 cph Exp $
 
 Copyright (c) 1988, 1999, 2001 Massachusetts Institute of Technology
 
@@ -26,19 +26,15 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 (declare (usual-integrations))
 
 (define (initialize-package!)
-  (set! syntax-table/system-internal (->environment '(RUNTIME)))
-  (set-environment-syntax-table! syntax-table/system-internal
-				 (make-syntax-table (->environment '())))
-  (for-each (lambda (entry)
-	      (syntax-table/define syntax-table/system-internal
-				   (car entry)
-				   (cadr entry)))
-	    `((DEFINE-PRIMITIVES ,transform/define-primitives)
-	      (UCODE-PRIMITIVE ,transform/ucode-primitive)
-	      (UCODE-RETURN-ADDRESS ,transform/ucode-return-address)
-	      (UCODE-TYPE ,transform/ucode-type))))
-
-(define syntax-table/system-internal)
+  (let ((environment (->environment '(RUNTIME))))
+    (set-environment-syntax-table! environment
+				   (make-syntax-table (->environment '())))
+    (for-each (lambda (entry)
+		(syntax-table/define environment (car entry) (cadr entry)))
+	      `((DEFINE-PRIMITIVES ,transform/define-primitives)
+		(UCODE-PRIMITIVE ,transform/ucode-primitive)
+		(UCODE-RETURN-ADDRESS ,transform/ucode-return-address)
+		(UCODE-TYPE ,transform/ucode-type)))))
 
 (define transform/define-primitives
   (let ((primitive-definition