~ chicken-core (chicken-5) 897684c785e9c50a7b2a615f2963511c9aba23ef

commit 897684c785e9c50a7b2a615f2963511c9aba23ef
Author:     Jim Ursetto <zbigniewsz@gmail.com>
AuthorDate: Wed May 16 19:47:59 2012 -0500
Commit:     Jim Ursetto <zbigniewsz@gmail.com>
CommitDate: Wed May 16 19:47:59 2012 -0500

    tcp-connect must close socket on connection timeout [thanks to Jörg Wittenberger]

diff --git a/tcp.scm b/tcp.scm
index 960df468..0d49c227 100644
--- 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