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

…ittenberger]
ursetto · May 17, 2012 · 897684c · 897684c
1 parent eed2d89
commit 897684c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tcp.scm b/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