diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 01:47:23 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 01:47:23 -0700 |
commit | d4a331511ffa45f41a0a619649e366905e406037 (patch) | |
tree | 91fe6934061595d399d112a13bb3be4c577a6b89 /lib.h | |
parent | 3f7c28ed9255ce0332b2e9214ee771c8a1a8dd1c (diff) | |
download | txr-d4a331511ffa45f41a0a619649e366905e406037.tar.gz txr-d4a331511ffa45f41a0a619649e366905e406037.tar.bz2 txr-d4a331511ffa45f41a0a619649e366905e406037.zip |
* arith.c (to_float): New static function.
(divi): Uses to_float.
(zerop, gt, lt, ge, le, expt): Floating support.
(isqrt_fixnum): Static function renamed to sqroot_fixnum.
(isqrt): Renamed to sqroot. Floating support.
(evenp, oddp, exptmod, gcd): Work with integers, not floats.
* eval.c (eval_init): intrinsic registration of sqrt follows rename of
isqrt to sqroot.
* lib.h (isqrt): Declaration replaced.
Diffstat (limited to 'lib.h')
-rw-r--r-- | lib.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -424,7 +424,7 @@ val minv(val first, val rest); val expt(val base, val exp); val exptv(val nlist); val exptmod(val base, val exp, val mod); -val isqrt(val anum); +val sqroot(val anum); val gcd(val anum, val bnum); val string_own(wchar_t *str); val string(const wchar_t *str); |