From 0efc0065fc1c1f1709ffd9abeee1751409c2170a Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Thu, 4 Sep 1997 13:45:56 +0000
Subject: Debug, tests

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1701 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/win32unix/socket.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'otherlibs/win32unix/socket.c')

diff --git a/otherlibs/win32unix/socket.c b/otherlibs/win32unix/socket.c
index 0ccace588..cdcd34a6d 100644
--- a/otherlibs/win32unix/socket.c
+++ b/otherlibs/win32unix/socket.c
@@ -38,9 +38,6 @@ value unix_socket(domain, type, proto) /* ML */
   s = socket(socket_domain_table[Int_val(domain)],
                    socket_type_table[Int_val(type)],
                    Int_val(proto));
-  if (s == INVALID_SOCKET) {
-    _dosmaperr(WSAGetLastError());
-    uerror("socket", Nothing);
-  }
+  if (s == INVALID_SOCKET) unix_error(WSAGetLastError(), "socket", Nothing);
   return win_alloc_handle((HANDLE) s);
 }
-- 
cgit v1.2.3-70-g09d2