diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-12-06 19:27:22 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-12-06 19:27:22 +0100 |
| commit | e9634465e365e74b3dc3edeae98a98ece1530f82 (patch) | |
| tree | 67a8769b67fc3bcc7f638cbd0e7758d801ba614d /module/ice-9/poll.scm | |
| parent | a9a206554062cf55220dd33d9256ccb431cc888e (diff) | |
| download | guile-e9634465e365e74b3dc3edeae98a98ece1530f82.tar.gz | |
ice-9 poll handles buffered io too
* libguile/poll.c (scm_primitive_poll): Account for buffered I/O.
* module/ice-9/poll.scm (poll): Adapt to call primitive-poll with the
port vector too.
Diffstat (limited to 'module/ice-9/poll.scm')
| -rw-r--r-- | module/ice-9/poll.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/ice-9/poll.scm b/module/ice-9/poll.scm index e506e2ac4..26b264b8e 100644 --- a/module/ice-9/poll.scm +++ b/module/ice-9/poll.scm @@ -172,4 +172,5 @@ (define* (poll poll-set #:optional (timeout -1)) (primitive-poll (pset-pollfds poll-set) (poll-set-nfds poll-set) + (pset-ports poll-set) timeout)) |