Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

…ittenberger]

(cherry picked from commit 897684c)
  • Loading branch information...
commit ca47614db42dcc17b67fece1599e8cddadd76208 1 parent 09bea12
Jim Ursetto authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  tcp.scm
1  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
Please sign in to comment.
Something went wrong with that request. Please try again.