From 3468ee51456da535ebb99d74e64382ebe3c109e5 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 23 Nov 2011 13:16:29 +0900
Subject: [PATCH] don't use sexp_write_utf8_char in display if utf8 not
 supported

---
 sexp.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/sexp.c b/sexp.c
index cf4ad914..277d2d2a 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1725,7 +1725,11 @@ sexp sexp_display_op (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sexp out) {
   if (sexp_stringp(obj))
     sexp_write_string(ctx, sexp_string_data(obj), out);
   else if (sexp_charp(obj))
+#if SEXP_USE_UTF8_STRINGS
     sexp_write_utf8_char(ctx, sexp_unbox_character(obj), out);
+#else
+    sexp_write_char(ctx, sexp_unbox_character(obj), out);
+#endif
   else
     res = sexp_write_one(ctx, obj, out);
   return res;