[Chicken-hackers] tcp-connect looses socket-fd upon timeout

[Jörg F . Wittenberger]

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