* arith.c (numeq): New function.

(exptmod): Bugfix: was no normalizing the bignum, ouch.
Also was reporting "non-integral operands" for other
errors.

* eval.c (eval_init): Registered = intrinsic function.

* lib.c (numeqv): New function.

* lib.h (numeq, numeqv): Declared.

* txr.1: Documented expt, sqrt, isqrt, exptmod, fixnump, bignump,
integerp, floatp, numberp, zerop, evenp, oddp, >, <, >=, <= and =.

* txr.vim: Highlight =

1 files changed, 14 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 5737d48e..d354ce6e 100644
--- a/lib.c
+++ b/lib.c
@@ -1269,6 +1269,20 @@ val lev(val first, val rest)
   return t;
 }
 
+val numeqv(val first, val rest)
+{
+  val iter;
+
+  for (iter = rest; iter; iter = cdr(iter)) {
+    val elem = car(iter);
+    if (!numeq(first, elem))
+      return nil;
+    first = elem;
+  }
+
+  return t;
+}
+
 val max2(val anum, val bnum)
 {
   return if3(gt(anum, bnum), anum, bnum);