* arith.c (highest_bit): Linkage changed to static.

(abso, isqrt): New functions.
(isqrt_fixnum): New static function.

* eval.c (eval_init): Registered abs, sqrt and numberp instrinsics.

* lib.c (numberp): New function.

* lib.h (numberp, abso, isqrt): Declared.

* mpi-patches/series: New patch added.

* mpi-patches/faster-square-root: New patch added.

* txr.1: Documentation stubs for new functions.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 4787e240..5874d73e 100644
--- a/lib.h
+++ b/lib.h
@@ -363,11 +363,13 @@ val num(cnum val);
 cnum c_num(val num);
 val fixnump(val num);
 val bignump(val num);
+val numberp(val num);
 val plus(val anum, val bnum);
 val plusv(val nlist);
 val minus(val anum, val bnum);
 val minusv(val minuend, val nlist);
 val neg(val num);
+val abso(val num);
 val mul(val anum, val bnum);
 val mulv(val nlist);
 val trunc(val anum, val bnum);
@@ -387,6 +389,7 @@ val maxv(val first, val rest);
 val minv(val first, val rest);
 val expt(val base, val exp);
 val exptv(val nlist);
+val isqrt(val anum);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);