summaryrefslogtreecommitdiffstats
path: root/lib.h
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-12-13 17:36:08 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-12-13 17:36:08 -0800
commitef47dfe4fcb7c1be369ae83221386b9da6474a1e (patch)
treea2ac264811c80ad085eea5ea725b3bb6be8ba751 /lib.h
parent5d0f219ab35f9e214a063e968286ba01f4b54dbf (diff)
downloadtxr-ef47dfe4fcb7c1be369ae83221386b9da6474a1e.tar.gz
txr-ef47dfe4fcb7c1be369ae83221386b9da6474a1e.tar.bz2
txr-ef47dfe4fcb7c1be369ae83221386b9da6474a1e.zip
* 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.
Diffstat (limited to 'lib.h')
-rw-r--r--lib.h3
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);