From 1bc31ff9c1d285d381c93f6696047737217af487 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 26 Nov 2011 12:41:54 +0900
Subject: [PATCH] write unsigned char values for bytevectors

---
 sexp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index 3a1a2cfc..4f94018c 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1595,7 +1595,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
       len = sexp_bytes_length(obj);
       for (i=0; i<len; i++) {
         if (i!=0) sexp_write_char(ctx, ' ', out);
-        sexp_write(ctx, sexp_make_fixnum(str[i]), out);
+        sexp_write(ctx, sexp_make_fixnum(((unsigned char*)str)[i]), out);
       }
       sexp_write_char(ctx, ')', out);
       break;