klisp

commit 50e2b7c6c91186fab58cb75a9c85426aa59d983f
parent 458b9ee284a08361b9b07c9f8dc751cac1ed95e0
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 18 Nov 2011 09:44:15 -0300

Bugfix: u8 should include 0!! derp

Diffstat:
M
src/kobject.h
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/kobject.h b/src/kobject.h
@@ -243,7 +243,7 @@ typedef struct __attribute__ ((__packed__)) GCheader {
 	    t_ == K_TAG_FIXINT || t_ == K_TAG_BIGINT;})
 #define ttisu8(o) ({							\
 	TValue o__ = (o);						\
-	(ttisfixint(o__) && ivalue(o__) > 0 && ivalue(o__) < 256); })		
+	(ttisfixint(o__) && ivalue(o__) >= 0 && ivalue(o__) < 256); })		
 #define ttisinteger(o) ({ TValue o__ = (o);				\
 	    (ttiseinteger(o__) ||					\
 	     (ttisdouble(o__) && (floor(dvalue(o__)) == dvalue(o__))));})