Permalink
Browse files

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

…ittenberger]
  • Loading branch information...
ursetto committed May 17, 2012
1 parent eed2d89 commit 897684c785e9c50a7b2a615f2963511c9aba23ef
Showing with 1 addition and 0 deletions.
  1. +1 −0 tcp.scm
View
@@ -614,6 +614,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 897684c

Please sign in to comment.