diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-02-15 22:01:51 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-02-15 22:10:25 +0100 |
| commit | 6e0965104c579431e5a786b60e1a964a112c73b8 (patch) | |
| tree | 20039c935d8968fcc6d0b50b45a52026165088d1 /module | |
| parent | 9399c1347918fb9b39ee4b1443bcc0df78ebf750 (diff) | |
Add accept4 support
* doc/ref/posix.texi (Network Sockets and Communication): Add
documentation.
* libguile/socket.c (scm_accept4): New function, replaces accept
implementation.
(scm_accept): Call scm_accept4.
(scm_init_socket): Define SOCK_CLOEXEC and SOCK_NONBLOCK.
* libguile/socket.h: Add private scm_accept4 decl.
* module/ice-9/suspendable-ports.scm (accept): Update.
Diffstat (limited to 'module')
| -rw-r--r-- | module/ice-9/suspendable-ports.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/suspendable-ports.scm b/module/ice-9/suspendable-ports.scm index 8ff0ba029..a366c8b9c 100644 --- a/module/ice-9/suspendable-ports.scm +++ b/module/ice-9/suspendable-ports.scm @@ -678,9 +678,9 @@ (define accept (let ((%accept (@ (guile) accept))) - (lambda (port) + (lambda* (port #:optional (flags 0)) (let lp () - (or (%accept port) + (or (%accept port flags) (begin (wait-for-readable port) (lp))))))) |