diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 3855146b1..e3c9e1c92 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1284,8 +1284,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_make_string (SCM_INUM0, SCM_UNDEFINED), + port = scm_mkstrport (SCM_INUM0, SCM_BOOL_F, SCM_OPN | SCM_WRTNG, FUNC_NAME); destination = port; |