diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 10:48:00 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 10:48:00 -0700 |
commit | 1ccc6d458fbda380233019a1d80d5aff576d9d03 (patch) | |
tree | 97e9057e446ac2e19f265ebe829634b46e81f79c /lib.h | |
parent | 946c88ae095260a816aae8e1d5eacb32e4424718 (diff) | |
download | txr-1ccc6d458fbda380233019a1d80d5aff576d9d03.tar.gz txr-1ccc6d458fbda380233019a1d80d5aff576d9d03.tar.bz2 txr-1ccc6d458fbda380233019a1d80d5aff576d9d03.zip |
Fix sqrt confusion. There must be a separate isqrt
for the integer square root.
* arith.c (sqroot_fixnum): Renamed back to isqrt_fixnum.
(sqroot): Rewritten to handle only floating-point square root.
(isqrt): New function, based on previous sqroot,
handles only integers.
* eval.c (eval_init): New intrinsic, isqrt.
* lib.h (isqrt): New declaration.
* txr.1: Doc stubs.
* txr.vim: Highlighting for isqrt.
Diffstat (limited to 'lib.h')
-rw-r--r-- | lib.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -425,6 +425,7 @@ val expt(val base, val exp); val exptv(val nlist); val exptmod(val base, val exp, val mod); val sqroot(val anum); +val isqrt(val anum); val gcd(val anum, val bnum); val floorf(val); val ceili(val); |