[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: ports: 'scm_port_poll' honors "w" flags.
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: ports: 'scm_port_poll' honors "w" flags. |
Date: |
Mon, 18 Nov 2019 09:16:12 -0500 (EST) |
civodul pushed a commit to branch stable-2.2
in repository guile.
commit 659526d33b2db1b0924b2769b6a0b824709860cc
Author: Ludovic Courtès <address@hidden>
Date: Mon Nov 18 15:14:56 2019 +0100
ports: 'scm_port_poll' honors "w" flags.
Fixes <https://bugs.gnu.org/36709>.
Reported by Mark H Weaver <address@hidden>.
* libguile/ports.c (scm_port_poll): Replace second POLLIN by POLLOUT.
---
libguile/ports.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libguile/ports.c b/libguile/ports.c
index 45e62f4..0084f0c 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);