diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-10 05:51:05 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-10 05:51:05 -0700 |
commit | 32be5735cd89931048f12283f3977c72cd292f77 (patch) | |
tree | 3e2050a23465a04f7be5016c38ffc25b46caa6fb /libguile/print.c | |
parent | 6ce6923b6826db2f2ddc8a5f787ab57d7072f0e8 (diff) | |
download | guile-32be5735cd89931048f12283f3977c72cd292f77.tar.gz |
Make scm_charprint and scm_i_string_wide_chars SCM_INTERNAL.
Also, scm_charprint is renamed to scm_i_charprint.
* libguile/strings.h: make scm_i_string_wide_chars internal.
* libguile/print.h: rename scm_charprint to scm_i_charprint. Make
internal.
* libguile/print.c (scm_i_charprint): renamed from scm_charprint
(scm_charprint): renamed to scm_i_charprint. All callers changed.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 6f31fcf4a..85f030e36 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -582,7 +582,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) else if (ch == '"' || ch == '\\') { scm_putc ('\\', port); - scm_charprint (ch, port); + scm_i_charprint (ch, port); printed = 1; } else @@ -824,7 +824,7 @@ scm_prin1 (SCM exp, SCM port, int writingp) /* Print a character. */ void -scm_charprint (scm_t_uint32 ch, SCM port) +scm_i_charprint (scm_t_uint32 ch, SCM port) { scm_t_wchar *wbuf; SCM wstr = scm_i_make_wide_string (1, &wbuf); |