mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-19 18:20:22 +02:00
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.
This commit is contained in:
parent
a9a2065540
commit
e9634465e3
2 changed files with 77 additions and 4 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue