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

will already clear the error status.

scsh/network.scm

@@ -263,8 +263,8 @@
 			    (fdport-data
 			     (socket:outport sock))))
 		   '#())
-	   (if (not (connect-socket-successful? sock))
            (let ((errno (socket-option sock level/socket socket/error)))
+             (if (not (zero? errno))
                  (errno-error errno
                               (errno-msg errno) 
                               %connect