Permalink
Browse files

tcp-connect must close socket on connection timeout [thanks to Jörg W…

…ittenberger]

(cherry picked from commit 897684c)
  • Loading branch information...
1 parent 09bea12 commit ca47614db42dcc17b67fece1599e8cddadd76208 @ursetto committed May 17, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 tcp.scm
View
@@ -603,6 +603,7 @@ EOF
(##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

0 comments on commit ca47614

Please sign in to comment.