diff options
| -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); |