* 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, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 2167e642..8f4fae65 100644
--- a/lib.h
+++ b/lib.h
@@ -413,10 +413,12 @@ val gt(val anum, val bnum);
 val lt(val anum, val bnum);
 val ge(val anum, val bnum);
 val le(val anum, val bnum);
+val numeq(val anum, val bnum);
 val gtv(val first, val rest);
 val ltv(val first, val rest);
 val gev(val first, val rest);
 val lev(val first, val rest);
+val numeqv(val first, val rest);
 val max2(val anum, val bnum);
 val min2(val anum, val bnum);
 val maxv(val first, val rest);