From 5a3bc8c2486809267a2ef39c40c703af10d29e14 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 10 Apr 1990 15:53:06 +0000 Subject: [PATCH] Force top-level syntax definitions to be local to the file in which they appear. --- v7/src/runtime/load.scm | 11 ++++++----- v8/src/runtime/load.scm | 11 ++++++----- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm index 9591260ec..ddfcb7f23 100644 --- a/v7/src/runtime/load.scm +++ b/v7/src/runtime/load.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.11 1990/01/31 02:03:13 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.12 1990/04/10 15:53:06 cph Exp $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -213,9 +213,10 @@ MIT in each case. |# (if (eq? environment default-object) (repl/environment repl) environment) - (if (eq? syntax-table default-object) - (repl/syntax-table repl) - syntax-table)))))) + (make-syntax-table + (if (eq? syntax-table default-object) + (repl/syntax-table repl) + syntax-table))))))) (define (write-stream stream write) (if (stream-pair? stream) diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm index 8929000b0..a12533761 100644 --- a/v8/src/runtime/load.scm +++ b/v8/src/runtime/load.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.11 1990/01/31 02:03:13 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.12 1990/04/10 15:53:06 cph Exp $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -213,9 +213,10 @@ MIT in each case. |# (if (eq? environment default-object) (repl/environment repl) environment) - (if (eq? syntax-table default-object) - (repl/syntax-table repl) - syntax-table)))))) + (make-syntax-table + (if (eq? syntax-table default-object) + (repl/syntax-table repl) + syntax-table))))))) (define (write-stream stream write) (if (stream-pair? stream) -- 2.25.1