summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-05-14 12:38:49 +0200
committerAndy Wingo <wingo@pobox.com>2016-05-14 12:42:17 +0200
commit9ecf77a82d6060a26f6891181f4582cc19dec65e (patch)
tree4f9b55e6026841a380c9e3f1c95a6b2a39a9547d /libguile/print.c
parent9322902d02ecc23ec4c8534dbbc03c3074b78217 (diff)
downloadguile-9ecf77a82d6060a26f6891181f4582cc19dec65e.tar.gz
Add SCM_OPN to mode bits when making ports
* libguile/ports.c (scm_c_make_port_with_encoding): Add SCM_OPN to mode bits, so that users don't have to. (scm_i_mode_bits_n): * libguile/print.c (scm_simple_format) * libguile/r6rs-ports.c (make_bytevector_input_port) (make_custom_binary_input_port, make_bytevector_output_port) (make_custom_binary_output_port, make_transcoded_port) * libguile/strports.c (scm_object_to_string, scm_open_input_string) (scm_open_output_string, scm_c_read_string): Remove now-unneeded SCM_OPN mentions.
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c
index b1ddf58b6..562057722 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -1565,9 +1565,7 @@ SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
else if (scm_is_false (destination))
{
fReturnString = 1;
- port = scm_mkstrport (SCM_INUM0, SCM_BOOL_F,
- SCM_OPN | SCM_WRTNG,
- FUNC_NAME);
+ port = scm_mkstrport (SCM_INUM0, SCM_BOOL_F, SCM_WRTNG, FUNC_NAME);
destination = port;
}
else