Skip to content
Browse files

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

…ittenberger]
  • Loading branch information...
1 parent eed2d89 commit 897684c785e9c50a7b2a615f2963511c9aba23ef @ursetto committed May 16, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 tcp.scm
View
1 tcp.scm
@@ -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.
Something went wrong with that request. Please try again.