summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/print.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c
index c398572ab..152baef6e 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -658,8 +658,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
scm_remember_upto_here_1 (exp);
}
else
- scm_lfwrite (scm_i_string_chars (exp), scm_i_string_length (exp),
- port);
+ scm_lfwrite_str (exp, port);
scm_remember_upto_here_1 (exp);
break;
case scm_tc7_symbol: