scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace half-assed DYNAMIC-WIND protection of input port by the one 

Richard Kelsey suggested for Scheme 48.
This commit is contained in:
sperber 2002-12-17 13:50:14 +00:00
parent 91002918fc
commit 69a2031350
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/bcomp/read-form.scm
View File

@ -13,10 +13,11 @@
(define (read-forms pathname package) (define (read-forms pathname package)
(let* ((filename (namestring pathname #f *scheme-file-type*)) (let* ((filename (namestring pathname #f *scheme-file-type*))
(truename (translate filename)) (truename (translate filename))
(port #f)) (port (open-input-file truename)))
(dynamic-wind (dynamic-wind
(lambda () (lambda ()
(set! port (open-input-file truename))) (if (not port)
(error "attempt to throw back into a file read"))) ; message needs work
(lambda () (lambda ()
((fluid $note-file-package) filename package) ((fluid $note-file-package) filename package)
(let ((o-port (current-noise-port))) (let ((o-port (current-noise-port)))
@ -24,7 +25,8 @@
(force-output o-port) (force-output o-port)
(really-read-forms port))) (really-read-forms port)))
(lambda () (lambda ()
(close-input-port port))))) (close-input-port port)
(set! port #f)))))
(define (really-read-forms port) (define (really-read-forms port)
(let loop ((forms '())) (let loop ((forms '()))