klisp

commit 442a16a91a254c68b02a09122ffcb0075b70aaa1
parent feb11a307477cf0b4494702d4b329cda0561d6fa
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 25 Nov 2011 12:27:17 -0300

Added exact-integer? to the ground environment.

Diffstat:
M
TODO
 | 
5
++++-
M
src/kgnumbers.c
 | 
3
+++

2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/TODO b/TODO
@@ -3,6 +3,10 @@ r7rs branch:
 * refactor:
 ** double check combiner names to be verbs 
    (e.g. add get- where appropriate)
+** remove function prototypes from kg*.h, move the
+   ones that are used in more than one place to kghelpers.h
+** create knumber.h knumber.c and move there kfinitep, kintegerp, etc
+   from kgnumbers.
 * fix:
 ** current-jiffy
 ** jiffies-per-second
@@ -18,7 +22,6 @@ r7rs branch:
 ** $named-let
 ** $do
 * applicatives: 
-** exact-integer?
 ** reverse
 ** make-list
 ** list-copy
diff --git a/src/kgnumbers.c b/src/kgnumbers.c
@@ -2358,6 +2358,9 @@ void kinit_numbers_ground_env(klisp_State *K)
 		    p2tv(knumber_wpvp), p2tv(kfinitep));
     add_applicative(K, ground_env, "integer?", ftypep, 2, symbol, 
 		    p2tv(kintegerp));
+    /* 12.5.? exact-integer? */
+    add_applicative(K, ground_env, "exact-integer?", ftypep, 2, symbol, 
+		    p2tv(keintegerp));
     /* 12.5.2 =? */
     add_applicative(K, ground_env, "=?", ftyped_kbpredp, 3,
 		    symbol, p2tv(knumber_wpvp), p2tv(knum_eqp));