[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-123-g032a16f

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=032a16fced2128626e13e6964ea39f1c8fe44091

The branch, stable-2.0 has been updated
       via  032a16fced2128626e13e6964ea39f1c8fe44091 (commit)
      from  aa8630efb37e71db56430d2090b0aaabbbaf2df3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 032a16fced2128626e13e6964ea39f1c8fe44091
Author: Ludovic Courtès <address@hidden>
Date:   Sun Dec 15 22:48:41 2013 +0100

    Hide EINTR returns from 'accept'.
    
    * libguile/socket.c (scm_accept): Wrap 'accept' call in 'SCM_SYSCALL'.

-----------------------------------------------------------------------

Summary of changes:
 libguile/socket.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/libguile/socket.c b/libguile/socket.c
index ee84fa3..a0fb1a9 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);


hooks/post-receive
-- 
GNU Guile