1
Fork 0
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:
Andy Wingo 2010-12-06 19:27:22 +01:00
parent a9a2065540
commit e9634465e3
2 changed files with 77 additions and 4 deletions

View file

@ -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))