From 8b8ca2e793f90aa58d7430b8f060c467cd41ec1b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 29 Mar 2012 21:41:49 -0700 Subject: * 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 = --- lib.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib.h') 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); -- cgit v1.2.3