Avoid calling SOCKET-OPTION twice in case of an error: the first call

will already clear the error status.

scsh/network.scm

@@ -263,13 +263,13 @@
 			    (fdport-data
 			     (socket:outport sock))))
 		   '#())
-	   (if (not (connect-socket-successful? sock))
+           (let ((errno (socket-option sock level/socket socket/error)))
-	       (let ((errno (socket-option sock level/socket socket/error)))
+             (if (not (zero? errno))
-		 (errno-error errno
+                 (errno-error errno
-			      (errno-msg errno) 
+                              (errno-msg errno) 
-			      %connect 
+                              %connect
-			      sock 
+                              sock
-			      name)))))))
+                              name)))))))
 
 (import-os-error-syscall %connect (sockfd family name) "scheme_connect")