ice-9 poll handles buffered io too

[bpt/guile.git] / module / ice-9 / poll.scm

diff --git a/module/ice-9/poll.scm b/module/ice-9/poll.scm
index e506e2a..26b264b 100644 (file)
--- 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))