steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix error reporting for win32 sockets code

erg 2006-11-12 18:55:07 +00:00
parent 318b86a530
commit e738e70965
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/io/windows/server.factor
View File

@ -8,8 +8,8 @@ USING: alien errors generic kernel kernel-internals math namespaces
TUPLE: win32-client-stream host port ; TUPLE: win32-client-stream host port ;
: (handle-socket-error) ( -- ) : (handle-socket-error) ( -- )
WSAGetLastError [ ERROR_IO_PENDING ERROR_SUCCESS ] member? WSAGetLastError dup ERROR_IO_PENDING = over ERROR_SUCCESS = or
[ WSAGetLastError error_message throw ] unless ; [ drop ] [ error_message alien>char-string throw ] if ;
: handle-socket-error!=0/f ( int -- ) : handle-socket-error!=0/f ( int -- )
[ 0 f ] member? [ (handle-socket-error) ] unless ; [ 0 f ] member? [ (handle-socket-error) ] unless ;