update benz (call-with-port)

This commit is contained in:
Yuichi Nishiwaki 2014-09-10 17:43:19 +09:00
parent 9f5a1512b5
commit 0dbf238f83
3 changed files with 3 additions and 6 deletions

@ -1 +1 @@
Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97 Subproject commit e376f2614de8f6e72d8264db010a129c5d737d4a

View File

@ -177,6 +177,8 @@
current-output-port current-output-port
current-error-port current-error-port
call-with-port
port? port?
input-port? input-port?
output-port? output-port?

View File

@ -525,11 +525,6 @@
;; 6.13. Input and output ;; 6.13. Input and output
(define (call-with-port port proc)
(let ((value (proc port)))
(close-port port)
value))
(export current-input-port (export current-input-port
current-output-port current-output-port
current-error-port current-error-port