update benz (call-with-port)
This commit is contained in:
parent
9f5a1512b5
commit
0dbf238f83
|
@ -1 +1 @@
|
||||||
Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97
|
Subproject commit e376f2614de8f6e72d8264db010a129c5d737d4a
|
|
@ -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?
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue