mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

ports: 'scm_port_poll' honors "w" flags.

Browse source 
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.
This commit is contained in:
Ludovic Courtès 2019-11-18 15:14:56 +01:00
parent a69b567d97
commit 659526d33b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

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