diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-11-18 15:14:56 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-11-18 15:14:56 +0100 |
| commit | 659526d33b2db1b0924b2769b6a0b824709860cc (patch) | |
| tree | 806c10e1177e8db0dae052ef70a72d7df8968820 | |
| parent | a69b567d97f7c9193924c775e1dd86e43a35b8bd (diff) | |
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.
| -rw-r--r-- | libguile/ports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 45e62f4e4..0084f0c37 100644 --- 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); |