Applied to master and stability, thanks. I verified the behavior manually with lsof.
Note that this was only an issue if tcp-connect-timeout is set, which is not the case by default; if the OS itself times out the connection, it got properly closed. On May 16, 2012, at 10:13 AM, Jörg F. Wittenberger wrote: > this should help: > > =================================================================== > --- tcp.scm > +++ tcp.scm > @@ -612,10 +612,11 @@ > ##sys#current-thread > (+ (current-milliseconds) tmc) ) ) > (##sys#thread-block-for-i/o! ##sys#current-thread s > #:all) > (yield) > (when (##sys#slot ##sys#current-thread 13) > + (##net#close s) > (##sys#signal-hook > #:network-timeout-error > 'tcp-connect > "connect operation timed out" tmc s) ) > (loop2) ) ) )) > ........... > > > > _______________________________________________ > Chicken-hackers mailing list > Chicken-hackers@nongnu.org > https://lists.nongnu.org/mailman/listinfo/chicken-hackers _______________________________________________ Chicken-hackers mailing list Chicken-hackers@nongnu.org https://lists.nongnu.org/mailman/listinfo/chicken-hackers
