original commit: 1f0bab82140a7b67f0d172d225919ba6202b20db
This commit is contained in:
Robby Findler 2004-04-07 14:11:45 +00:00
parent 5514e25182
commit 78e9bcf6be

View File

@ -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)