diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 17:36:08 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 17:36:08 -0800 |
commit | ef47dfe4fcb7c1be369ae83221386b9da6474a1e (patch) | |
tree | a2ac264811c80ad085eea5ea725b3bb6be8ba751 /lib.h | |
parent | 5d0f219ab35f9e214a063e968286ba01f4b54dbf (diff) | |
download | txr-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.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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); |