From ef47dfe4fcb7c1be369ae83221386b9da6474a1e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 13 Dec 2011 17:36:08 -0800 Subject: * 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. --- lib.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib.h') 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); -- cgit v1.2.3