summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index 4f2acffd7..9ddc4a21f 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1268,7 +1268,7 @@ SCM_DEFINE (scm_accept, "accept", 1, 0, 0,
sock = SCM_COERCE_OUTPORT (sock);
SCM_VALIDATE_OPFPORT (1, sock);
fd = SCM_FPORT_FDES (sock);
- SCM_SYSCALL (newfd = accept (fd, (struct sockaddr *) &addr, &addr_size));
+ SCM_SYSCALL (newfd = accept4 (fd, (struct sockaddr *) &addr, &addr_size, 0));
if (newfd == -1)
{
if (errno == EAGAIN || errno == EWOULDBLOCK)