diff options
Diffstat (limited to 'repl.scm')
| -rw-r--r-- | repl.scm | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -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) |