scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

will already clear the error status.
This commit is contained in:
mainzelm 2003-10-15 07:59:51 +00:00
parent 1f1081b8bf
commit 3198c650f8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/network.scm
View File

@ -263,8 +263,8 @@
(fdport-data (fdport-data
(socket:outport sock)))) (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