klisp

commit 9237f3ba9e0fba456f75cf351c95bfd9179b34b5
parent df913012db547b03bbbd23ba691dd2cec2ef613d
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Tue, 12 Apr 2011 23:14:10 -0300

Corrected some type strings.

Diffstat:
M
src/kgpair_mut.c
 | 
4
++--
M
src/kgpairs_lists.c
 | 
4
++--
M
src/ktoken.c
 | 
2
+-

3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/kgpair_mut.c b/src/kgpair_mut.c
@@ -157,8 +157,8 @@ void encycleB(klisp_State *K, TValue *xparams, TValue ptree,
     (void) xparams;
 
     bind_3tp(K, "encycle!", ptree, "any", anytype, obj,
-	     "finite integer", kintegerp, tk1,
-	     "finite integer", kintegerp, tk2);
+	     "integer", kintegerp, tk1,
+	     "integer", kintegerp, tk2);
 
     if (knegativep(tk1) || knegativep(tk2)) {
 	klispE_throw(K, "encycle!: negative index");
diff --git a/src/kgpairs_lists.c b/src/kgpairs_lists.c
@@ -241,7 +241,7 @@ void list_tail(klisp_State *K, TValue *xparams, TValue ptree,
     (void) denv;
     (void) xparams;
     bind_2tp(K, "list-tail", ptree, "any", anytype, obj,
-	     "finite integer", kintegerp, tk);
+	     "integer", kintegerp, tk);
 
     if (knegativep(tk)) {
 	klispE_throw(K, "list-tail: negative index");
@@ -294,7 +294,7 @@ void list_ref(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
     UNUSED(xparams);
 
     bind_2tp(K, "list-ref", ptree, "any", anytype, obj,
-	     "finite integer", kintegerp, tk);
+	     "integer", kintegerp, tk);
 
     if (knegativep(tk)) {
 	klispE_throw(K, "list-ref: negative index");
diff --git a/src/ktoken.c b/src/ktoken.c
@@ -13,7 +13,7 @@
 ** TODO:
 **
 ** From the Report:
-** - Support other number types besides fixints and exact infinities
+** - Support other number types besides integers and exact infinities
 ** - Support for complete number syntax (exactness, radix, etc)
 ** 
 ** NOT from the Report: