New function: square.

The square function calulates (* x x) but is faster for bignum
integers by taking advantage of mp_sqr.

* arith.c (square): New function.

* eval.c (eval_init): Register square as intrinsic.

* lib.h (square): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 6570d904..d54ea7fa 100644
--- a/lib.h
+++ b/lib.h
@@ -721,6 +721,7 @@ val exptv(struct args *nlist);
 val exptmod(val base, val exp, val mod);
 val sqroot(val anum);
 val isqrt(val anum);
+val square(val anum);
 val gcd(val anum, val bnum);
 val gcdv(struct args *nlist);
 val lcm(val anum, val bnum);