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 8f2905385ec2ff039429a3827b20f691ea0366de..8a1c9a0892ff033de27886e94a90a23118d7dd06 100644 (file)
--- 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 7f3a34486f70c382723e3dac17178df3875f2741..65d00a3f4e8bc1fc8c78764265a76c50993b459a 100644 (file)
--- 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)