Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index e36bb01a4bf2704b7a18595e757c4f906c4fa776..ab9a4a23db9ebe29db34b5294d8e13144544c402 100644 (file)
--- 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 b0b7338cb87499559f761c3af0062260daf90034..3269a4edc6e2f662ed5af857ca44c35a6cb2b6bd 100644 (file)
--- 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