summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-18 22:32:08 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-18 22:32:08 -0700
commit6234ff203d640f56bc5d160d9fe882b0f02b1401 (patch)
treeb87835d94390286927a125234754763c8e8316b1 /libguile/print.c
parentf59cf9981a84515b56359c5af56d7e787ad4d474 (diff)
downloadguile-6234ff203d640f56bc5d160d9fe882b0f02b1401.tar.gz
Display wide strings using escapes
* libguile/print.c (iprin1): for now, display wide strings as escaped strings
Diffstat (limited to 'libguile/print.c')
-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: