summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-10 05:51:05 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-10 05:51:05 -0700
commit32be5735cd89931048f12283f3977c72cd292f77 (patch)
tree3e2050a23465a04f7be5016c38ffc25b46caa6fb /libguile/print.c
parent6ce6923b6826db2f2ddc8a5f787ab57d7072f0e8 (diff)
downloadguile-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.c4
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);