Import Upstream version 3a2upstream/3a2

1 files changed, 6 insertions, 7 deletions

diff --git a/repl.scm b/repl.scm
index b7fff38..596f4d7 100644
--- a/repl.scm
+++ b/repl.scm
@@ -1,5 +1,5 @@
 ; "repl.scm", read-eval-print-loop for Scheme
-; Copyright (c) 1993, 2003 Aubrey Jaffer
+; Copyright (C) 1993, 2003 Aubrey Jaffer
 ;
 ;Permission to copy this software, to modify it, to redistribute it,
 ;to distribute modified versions, and to use it for any purpose is
@@ -46,12 +46,11 @@
 	 (repl:load (lambda (<pathname>)
 		      (call-with-input-file <pathname>
 			(lambda (port)
-			  (let ((old-load-pathname *load-pathname*))
-			    (set! *load-pathname* <pathname>)
-			    (do ((o (read port) (read port)))
-				((eof-object? o))
-			      (repl:eval o))
-			    (set! *load-pathname* old-load-pathname))))))
+			  (with-load-pathname <pathname>
+			    (lambda ()
+			      (do ((o (read port) (read port)))
+				  ((eof-object? o))
+				(repl:eval o))))))))
 	 (repl:restart #f)
 	 (has-char-ready? (provided? 'char-ready?))
 	 (repl:error (lambda args (require 'debug) (apply qpn args)