mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Display wide strings using escapes

Browse source 
* libguile/print.c (iprin1): for now, display wide strings
  as escaped strings
This commit is contained in:
Michael Gran 2009-08-18 22:32:08 -07:00
parent f59cf9981a
commit 6234ff203d
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/print.c
View file

@ -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: