From 658f3cecd507b56f2edc8d48cc10558e7ab215cf Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 14 May 2012 06:41:28 +0900
Subject: [PATCH] Fixing string->number for (string->number "[a-f]" 16) case.

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

diff --git a/sexp.c b/sexp.c
index e6f340a9..2fcc727f 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2865,7 +2865,7 @@ sexp sexp_string_to_number_op (sexp ctx, sexp self, sexp_sint_t n, sexp str, sex
   if (((base=sexp_unbox_fixnum(b)) < 2) || (base > 36))
     return sexp_user_exception(ctx, self, "invalid numeric base", b);
   if (sexp_string_data(str)[0]=='\0'
-      || (sexp_string_data(str)[1]=='\0' && !sexp_isdigit((unsigned char)(sexp_string_data(str)[0]))))
+      || (sexp_string_data(str)[1]=='\0' && !sexp_isxdigit((unsigned char)(sexp_string_data(str)[0]))))
     return SEXP_FALSE;
   sexp_gc_preserve1(ctx, in);
   in = sexp_make_input_string_port(ctx, str);