From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Sep 2010 19:33:10 +0000 (-0500)
Subject: Fix error checking in windows.sockets again
X-Git-Tag: 0.97~4257^2~82
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=db7d81b008f474abf76f0ed8defe7b8935a16553

Fix error checking in windows.sockets again
---

diff --git a/basis/windows/winsock/winsock.factor b/basis/windows/winsock/winsock.factor
index 8ed81c972a..384f18caef 100644
--- a/basis/windows/winsock/winsock.factor
+++ b/basis/windows/winsock/winsock.factor
@@ -96,7 +96,7 @@ CONSTANT: INADDR_ANY 0
 
 : INVALID_SOCKET ( -- n ) -1 <alien> ; inline
 
-CONSTANT: SOCKET_ERROR -1
+: SOCKET_ERROR ( -- n ) -1 <alien> ; inline
 
 CONSTANT: SD_RECV 0
 CONSTANT: SD_SEND 1
@@ -383,7 +383,6 @@ FUNCTION: DWORD WSAWaitForMultipleEvents ( DWORD cEvents,
 
 LIBRARY: mswsock
 
-! Not in Windows CE
 FUNCTION: int AcceptEx ( void* listen, void* accept, void* out-buf, int recv-len, int addr-len, int remote-len, void* out-len, void* overlapped ) ;
 
 FUNCTION: void GetAcceptExSockaddrs (