Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

don't use sexp_write_utf8_char in display if utf8 not supported

Browse source
This commit is contained in:
Alex Shinn 2011-11-23 13:16:29 +09:00
parent 327be34719
commit 3468ee5145
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -1725,7 +1725,11 @@ sexp sexp_display_op (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sexp out) {
if (sexp_stringp(obj)) if (sexp_stringp(obj))
sexp_write_string(ctx, sexp_string_data(obj), out); sexp_write_string(ctx, sexp_string_data(obj), out);
else if (sexp_charp(obj)) else if (sexp_charp(obj))
#if SEXP_USE_UTF8_STRINGS
sexp_write_utf8_char(ctx, sexp_unbox_character(obj), out); sexp_write_utf8_char(ctx, sexp_unbox_character(obj), out);
#else
sexp_write_char(ctx, sexp_unbox_character(obj), out);
#endif
else else
res = sexp_write_one(ctx, obj, out); res = sexp_write_one(ctx, obj, out);
return res; return res;