* arith.c (zerop, gt, lt, ge, le): Functions from lib.c reimplemented

with bignum support.

* eval.c (eval_init): Added bignump and zerop as intrinsic function.
Renamed numberp to fixnump.

* lib.c (zerop, gt, lt, ge, le): Functions removed.
(numeq): Unused function removed.

* lib.h (numeq): Declaration removed.

* txr.1: Sections for zerop and bignump created. Changed reference
to numberp to fixnump.

1 files changed, 2 insertions, 32 deletions

diff --git a/lib.c b/lib.c
index 9432111d..01f1569a 100644
--- a/lib.c
+++ b/lib.c
@@ -857,31 +857,6 @@ val mulv(val nlist)
   return reduce_left(func_n2(mul), cdr(nlist), car(nlist), nil);
 }
 
-val zerop(val num)
-{
-  return c_num(num) == 0 ? t : nil;
-}
-
-val gt(val anum, val bnum)
-{
-  return c_num(anum) > c_num(bnum) ? t : nil;
-}
-
-val lt(val anum, val bnum)
-{
-  return c_num(anum) < c_num(bnum) ? t : nil;
-}
-
-val ge(val anum, val bnum)
-{
-  return c_num(anum) >= c_num(bnum) ? t : nil;
-}
-
-val le(val anum, val bnum)
-{
-  return c_num(anum) <= c_num(bnum) ? t : nil;
-}
-
 val gtv(val first, val rest)
 {
   val iter;
@@ -938,19 +913,14 @@ val lev(val first, val rest)
   return t;
 }
 
-val numeq(val anum, val bnum)
-{
-  return c_num(anum) == c_num(bnum) ? t : nil;
-}
-
 val max2(val anum, val bnum)
 {
-  return c_num(anum) > c_num(bnum) ? anum : bnum;
+  return if3(gt(anum, bnum), anum, bnum);
 }
 
 val min2(val anum, val bnum)
 {
-  return c_num(anum) < c_num(bnum) ? anum : bnum;
+  return if3(lt(anum, bnum), anum, bnum);
 }
 
 val maxv(val first, val rest)