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

diff --git a/txr.1 b/txr.1
index bf3c9353..f62cc5cf 100644
--- a/txr.1
+++ b/txr.1
@@ -35653,6 +35653,26 @@ and reduced to the
 least positive residue modulo
 .metn modulus .
 
+.coNP Function @ square
+.synb
+.mets (square << argument )
+.syne
+.desc
+The
+.code square
+function returns the product of
+.meta argument
+with itself. The following
+equivalence holds, except that
+.code x
+is evaluated only once in the the
+.code square
+expression:
+
+.cblk
+  (square x)  <-->  (* x x)
+.cble
+
 .coNP Function @ cum-norm-dist
 .synb
 .mets (cum-norm-dist << argument )