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

diff --git a/eval.c b/eval.c
index 3fdee26f..b79b88f1 100644
--- a/eval.c
+++ b/eval.c
@@ -2211,6 +2211,7 @@ void eval_init(void)
   reg_fun(intern(lit("<"), user_package), func_n1v(ltv));
   reg_fun(intern(lit(">="), user_package), func_n1v(gev));
   reg_fun(intern(lit("<="), user_package), func_n1v(lev));
+  reg_fun(intern(lit("="), user_package), func_n1v(numeqv));
   reg_fun(intern(lit("max"), user_package), func_n1v(maxv));
   reg_fun(intern(lit("min"), user_package), func_n1v(minv));