fix error reporting for win32 sockets code

diff --git a/library/io/windows/server.factor b/library/io/windows/server.factor
index 1010e0a227435e2848127abb67b6a25257a642e0..a153130753b4ee15c7ab403fd61117fb02041a9b 100644 (file)
--- a/library/io/windows/server.factor
+++ b/library/io/windows/server.factor
@@ -8,8 +8,8 @@ USING: alien errors generic kernel kernel-internals math namespaces
 TUPLE: win32-client-stream host port ;
 
 : (handle-socket-error) ( -- )
-    WSAGetLastError [ ERROR_IO_PENDING ERROR_SUCCESS ] member?
-    [ WSAGetLastError error_message throw ] unless ;
+    WSAGetLastError dup ERROR_IO_PENDING = over ERROR_SUCCESS = or
+    [ drop ] [ error_message alien>char-string throw ] if ;
 
 : handle-socket-error!=0/f ( int -- )
     [ 0 f ] member? [ (handle-socket-error) ] unless ;