From 77f5082f5c31ef363e1be259166de7112c61ece3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 19 Dec 2001 21:41:14 +0000 Subject: [PATCH] Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL. --- v7/src/runtime/runtime.pkg | 4 +--- v7/src/runtime/sysmac.scm | 24 ++++++++++-------------- 2 files changed, 11 insertions(+), 17 deletions(-) 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 -- 2.25.1