From fbc6dabbee38941754d53fb116eac8e0625295ca Mon Sep 17 00:00:00 2001
From: Itamar Ben Zaken <itamar@itamar-desktop.(none)>
Date: Tue, 17 Mar 2009 10:42:15 +0200
Subject: [PATCH] fixed: char->int used signed char instead of unsigned

---
 src/c/builtins.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/builtins.c b/src/c/builtins.c
index 5be73bc..4b9e110 100644
--- a/src/c/builtins.c
+++ b/src/c/builtins.c
@@ -213,7 +213,7 @@ Lchar_to_integer:
     ASSERT_ALWAYS( BI_ST_ARG_COUNT()==1,MSG_ERR_ARGCOUNT("char->integer",1) );
     r[0] = BI_ST_ARG(0);
     ASSERT_ALWAYS( IS_SOB_CHAR(r[0]), "" );
-    r[0] = SOB_CHAR_VALUE(r[0]);
+    r[0] = (unsigned char)SOB_CHAR_VALUE(r[0]);
     r_res = (int)makeSchemeInt( (int)r[0] );
     BI_RETURN();
 
-- 
2.11.4.GIT