Hi, > ;; close > (lambda () > (when (startup #t) > (if outbuf > - (begin > - (output outbuf) > - (set! outbuf ""))) > + (begin > + (unbuffered-write outbuf 0 outbufsize) > + (set! outbufsize 0))) > (set! out-open? #f) > (shutdown)))
AFAICS, this makes it impossible to close the file descriptors behind ports where the remote end has closed the connection while there is still data queued for transmission. Florian _______________________________________________ Chicken-users mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-users
