From 9ecf77a82d6060a26f6891181f4582cc19dec65e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 14 May 2016 12:38:49 +0200 Subject: 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. --- libguile/print.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'libguile/print.c') 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 -- cgit v1.2.3