From e9634465e365e74b3dc3edeae98a98ece1530f82 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 6 Dec 2010 19:27:22 +0100
Subject: 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.
---
 module/ice-9/poll.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/ice-9/poll.scm')

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))
-- 
cgit v1.2.1