From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Jun 1990 20:46:42 +0000 (+0000)
Subject: When loading a .scm file, fetch the repl environment and syntax table
X-Git-Tag: 20090517-FFI~11402
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4b6673009fa6407a3ceb8f4d195b0808209ea832;p=mit-scheme.git

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.
---

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)