ports: 'scm_port_poll' honors "w" flags.

Fixes <https://bugs.gnu.org/36709>.
Reported by Mark H Weaver <mhw@netris.org>.

* libguile/ports.c (scm_port_poll): Replace second POLLIN by POLLOUT.

diff --git a/libguile/ports.c b/libguile/ports.c
index 45e62f4e4531b919facfdbc1742c469e0a497772..0084f0c37ea77b293360e29cd60be84e40c1808c 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1440,7 +1440,7 @@ SCM_DEFINE (scm_port_poll, "port-poll", 2, 1, 0,
   if (scm_i_string_contains_char (events, '!'))
     c_events |= POLLPRI;
   if (scm_i_string_contains_char (events, 'w'))
-    c_events |= POLLIN;
+    c_events |= POLLOUT;
 
   scm_dynwind_begin (0);
   scm_dynwind_acquire_port (port);