diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-01-09 01:32:32 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-01-09 02:52:34 -0500 |
| commit | 1df515a077f26d59510e48fad3d45a33d2c90e0f (patch) | |
| tree | 05991bb4b3d527390d036fbb17617d6905097bda /libguile/socket.c | |
| parent | 61989c705359c50c61d7f52392f244d386218298 (diff) | |
| parent | 306cc01d3981feaa11aa0d866ff1d99128f0ace3 (diff) | |
Merge branch 'stable-2.0'
Conflicts:
module/system/vm/traps.scm
test-suite/tests/peval.test
Diffstat (limited to 'libguile/socket.c')
| -rw-r--r-- | libguile/socket.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c index 34bc21a73..8c1326a54 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -1331,7 +1331,7 @@ SCM_DEFINE (scm_accept, "accept", 1, 0, 0, sock = SCM_COERCE_OUTPORT (sock); SCM_VALIDATE_OPFPORT (1, sock); fd = SCM_FPORT_FDES (sock); - newfd = accept (fd, (struct sockaddr *) &addr, &addr_size); + SCM_SYSCALL (newfd = accept (fd, (struct sockaddr *) &addr, &addr_size)); if (newfd == -1) SCM_SYSERROR; newsock = SCM_SOCK_FD_TO_PORT (newfd); |