Update Gnulib to v0.0-6523-gb3609c1.

[bpt/guile.git] / lib / listen.c

diff --git a/lib/listen.c b/lib/listen.c
index a29090d..5e836de 100644 (file)
--- a/lib/listen.c
+++ b/lib/listen.c
@@ -32,9 +32,18 @@ int
 rpl_listen (int fd, int backlog)
 {
   SOCKET sock = FD_TO_SOCKET (fd);
-  int r = listen (sock, backlog);
-  if (r < 0)
-    set_winsock_errno ();
 
-  return r;
+  if (sock == INVALID_SOCKET)
+    {
+      errno = EBADF;
+      return -1;
+    }
+  else
+    {
+      int r = listen (sock, backlog);
+      if (r < 0)
+        set_winsock_errno ();
+
+      return r;
+    }
 }