On Mon, Apr 6, 2009 at 2:57 AM, Matt Jones <[email protected]> wrote:
>
> Ah, I found the problem.  My first analysis was wrong.  In fact, after line
> 609 in tcp.scm in the version 3.4 source, the port isn't closed before
> signalling the exception:
>
>      (let ((err (get-socket-error s)))
>        (cond ((= err -1)
>               ; Not closed here
>               ...)
>              ((> err 0)
>               ; Not closed here
>               ...)))
>
> Just adding the line (##net#close s) fixes the problem.
>

Thanks, Matt. I see that Kon has applied your fix.


cheers,
felix


_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to