diff options
author | Rob Browning <rlb@defaultvalue.org> | 2020-10-04 14:05:29 -0500 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2021-01-17 13:25:42 -0600 |
commit | d0d1f68794c2971bd230aa63f44cbf7a8ab6ab0d (patch) | |
tree | ee4320747c2f343b686a1eb1f7ca59a5cd98e11f /libguile | |
parent | f1547e1d58ae369538bf4b6c8f12c6db1399e8c7 (diff) | |
download | guile-d0d1f68794c2971bd230aa63f44cbf7a8ab6ab0d.tar.gz |
scm_i_make_transcoded_port: fix mode for input/output ports
* libguile/r6rs-ports.c (scm_i_make_transcoded_ports): make sure to
include SCM_RDNG for input/output ports.
Thanks to Göran Weinholt for reporting the problem.
Closes: 41045
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/r6rs-ports.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c index 445ae5464..49ca05325 100644 --- a/libguile/r6rs-ports.c +++ b/libguile/r6rs-ports.c @@ -1168,8 +1168,8 @@ SCM_DEFINE (scm_i_make_transcoded_port, if (scm_is_true (scm_output_port_p (port))) mode |= SCM_WRTNG; - else if (scm_is_true (scm_input_port_p (port))) - mode |= SCM_RDNG; + if (scm_is_true (scm_input_port_p (port))) + mode |= SCM_RDNG; result = make_transcoded_port (port, mode); |