From 20da1b89098a28d72bd9b8c9d82841db64273429 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 26 Feb 2010 00:04:46 +0900 Subject: [PATCH] fixing string-ref for 8-bit values (need to separate strings from byte-vectors) --- include/chibi/sexp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h index 491e70a9..a47ae337 100644 --- a/include/chibi/sexp.h +++ b/include/chibi/sexp.h @@ -523,7 +523,7 @@ SEXP_API sexp sexp_make_unsigned_integer(sexp ctx, sexp_luint_t x); #define sexp_string_length(x) ((x)->value.string.length) #define sexp_string_data(x) ((x)->value.string.data) -#define sexp_string_ref(x, i) (sexp_make_character(sexp_string_data(x)[sexp_unbox_fixnum(i)])) +#define sexp_string_ref(x, i) (sexp_make_character((unsigned char)sexp_string_data(x)[sexp_unbox_fixnum(i)])) #define sexp_string_set(x, i, v) (sexp_string_data(x)[sexp_unbox_fixnum(i)] = sexp_unbox_character(v)) #define sexp_symbol_string(x) ((x)->value.symbol.string)