diff options
author | Andy Wingo <wingo@pobox.com> | 2016-05-14 12:38:49 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-14 12:42:17 +0200 |
commit | 9ecf77a82d6060a26f6891181f4582cc19dec65e (patch) | |
tree | 4f9b55e6026841a380c9e3f1c95a6b2a39a9547d /libguile/print.c | |
parent | 9322902d02ecc23ec4c8534dbbc03c3074b78217 (diff) | |
download | guile-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.c | 4 |
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 |