diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:31 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:31 -0800 |
commit | 5145dd3aa0c02c9fc496d1432fc4410674206e1d (patch) | |
tree | 540afc30c51da085f5bd8ec3f4c89f6496e7900d /ppfile.scm | |
parent | 8466d8cfa486fb30d1755c4261b781135083787b (diff) | |
download | slib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.tar.gz slib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.zip |
Import Upstream version 3a2upstream/3a2
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 |