.
original commit: 1f0bab82140a7b67f0d172d225919ba6202b20db
This commit is contained in:
parent
5514e25182
commit
78e9bcf6be
|
@ -1153,6 +1153,8 @@ WARNING: printf is rebound in the body of the unit to always
|
||||||
(values s/c 1))])))
|
(values s/c 1))])))
|
||||||
|
|
||||||
(define (in-close-proc)
|
(define (in-close-proc)
|
||||||
|
(printf "closed port\n")
|
||||||
|
(car)
|
||||||
(void))
|
(void))
|
||||||
|
|
||||||
(define (make-write-bytes-proc style)
|
(define (make-write-bytes-proc style)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user