diff options
author | Michael Gran <spk121@yahoo.com> | 2009-09-04 07:27:14 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-09-04 07:27:14 -0700 |
commit | 3d03f9395e2ca83183e846ee99d4f9e541771c20 (patch) | |
tree | 1c17dbebba1b839341b99e30005c505f707e58bc | |
parent | 5f5e7a2cd6db0a7068f00710d0cca340c043c0ea (diff) | |
download | guile-3d03f9395e2ca83183e846ee99d4f9e541771c20.tar.gz |
write-char should handle UCS-4 characters
* libguile/print.c (scm_write_char): call UCS-4 printing routine, instead
of 8-bit primitive
-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 f4826d4ee..23e48e3cf 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1216,8 +1216,8 @@ SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0, SCM_VALIDATE_CHAR (1, chr); SCM_VALIDATE_OPORT_VALUE (2, port); - - scm_putc ((int) SCM_CHAR (chr), SCM_COERCE_OUTPORT (port)); + + scm_i_charprint (SCM_CHAR (chr), SCM_COERCE_OUTPORT (port)); #if 0 #ifdef HAVE_PIPE # ifdef EPIPE |