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

write-char should handle UCS-4 characters

Browse source 
* libguile/print.c (scm_write_char): call UCS-4 printing routine, instead
  of 8-bit primitive
This commit is contained in:
Michael Gran 2009-09-04 07:27:14 -07:00
parent 5f5e7a2cd6
commit 3d03f9395e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/print.c
View file

@ -1217,7 +1217,7 @@ SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0,
SCM_VALIDATE_CHAR (1, chr); SCM_VALIDATE_CHAR (1, chr);
SCM_VALIDATE_OPORT_VALUE (2, port); 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 #if 0
#ifdef HAVE_PIPE #ifdef HAVE_PIPE
# ifdef EPIPE # ifdef EPIPE