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

[Peter Bex]

On Wed, May 16, 2012 at 05:13:39PM +0200, 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) ) ) ))

Is this in response to some bugreport, a ticket in Trac, a problem
you found yourself, what?

Cheers,
Peter
-- 
http://sjamaan.ath.cx
--
"The process of preparing programs for a digital computer
 is especially attractive, not only because it can be economically
 and scientifically rewarding, but also because it can be an aesthetic
 experience much like composing poetry or music."
                                                        -- Donald Knuth