conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix #197

This commit is contained in:
Yuichi Nishiwaki 2014-09-10 03:11:45 +09:00
parent bd68a94af5
commit a0ab746fc8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
piclib/scheme/base.scm
View File

@ -536,10 +536,9 @@
;; 6.13. Input and output ;; 6.13. Input and output
(define (call-with-port port proc) (define (call-with-port port proc)
(dynamic-wind (let ((value (proc port)))
(lambda () #f) (close-port port)
(lambda () (proc port)) value))
(lambda () (close-port port))))
(export current-input-port (export current-input-port
current-output-port current-output-port