diff options
Diffstat (limited to 'ppfile.scm')
-rw-r--r-- | ppfile.scm | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -33,8 +33,7 @@ (fun outport) (call-with-output-file outport fun)))) (lambda (export) - (let ((old-load-pathname *load-pathname*)) - (set! *load-pathname* inport) + (with-load-pathname inport (letrec ((lp (lambda (c) (cond ((eof-object? c)) ((char-whitespace? c) @@ -62,8 +61,8 @@ (read-char port) (set! c (peek-char port)))) (lp c)))))))) - (lp (peek-char port))) - (set! *load-pathname* old-load-pathname))))))) + (lambda () + (lp (peek-char port)))))))))) ;@ (define (pprint-file ifile . optarg) (pprint-filter-file ifile |