klisp

commit 75df3df6ed5874c9c41baae8ee284cf6373a7b51
parent 975585b00a3548b6445415f73ad368b8dcce82cd
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sun, 10 Apr 2011 12:19:32 -0300

Added bigint support to the integer? applicative.

Diffstat:
M
src/kgnumbers.c
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/kgnumbers.c b/src/kgnumbers.c
@@ -28,9 +28,9 @@
 bool knumberp(TValue obj) { return ttype(obj) <= K_LAST_NUMBER_TYPE; }
 /* obj is known to be a number */
 bool kfinitep(TValue obj) { return (!ttiseinf(obj) && !ttisiinf(obj)); }
-/* TEMP: for now only fixint, should also include bigints and 
-   inexact integers */
-bool kintegerp(TValue obj) { return ttisfixint(obj); }
+/* TEMP: for now only fixint & bigints, should also include inexact 
+   integers */
+bool kintegerp(TValue obj) { return ttisinteger(obj); }
 
 /* 12.5.2 =? */
 /* uses typed_bpredp */