From 4b6673009fa6407a3ceb8f4d195b0808209ea832 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 4 Jun 1990 20:46:42 +0000 Subject: [PATCH] When loading a .scm file, fetch the repl environment and syntax table at the beginning of the load rather than for each expression in the file. This means that changing the repl environment or syntax table in the file will have no effect on the load. --- v7/src/runtime/load.scm | 6 ++++-- v8/src/runtime/load.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm index 8f2905385..8a1c9a089 100644 --- a/v7/src/runtime/load.scm +++ b/v7/src/runtime/load.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.15 1990/06/04 20:45:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.16 1990/06/04 20:46:42 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -224,7 +224,9 @@ MIT in each case. |# (loading-message load/suppress-loading-message? true-filename (lambda () (write-stream (value-stream) - (lambda (value) value false))))))))) + (lambda (value) + value + false))))))))) (define (load/purification-root scode) (or (and (comment? scode) diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm index 7f3a34486..65d00a3f4 100644 --- a/v8/src/runtime/load.scm +++ b/v8/src/runtime/load.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.15 1990/06/04 20:45:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.16 1990/06/04 20:46:42 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -224,7 +224,9 @@ MIT in each case. |# (loading-message load/suppress-loading-message? true-filename (lambda () (write-stream (value-stream) - (lambda (value) value false))))))))) + (lambda (value) + value + false))))))))) (define (load/purification-root scode) (or (and (comment? scode) -- 2.25.1