diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-07-18 06:59:26 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-07-18 06:59:26 -0700 |
commit | c9977c0132b2a6a3df994dbdf58c27689658f20f (patch) | |
tree | 72601b227e5a9868e990e41936016e59473c6979 /eval.c | |
parent | 50c2dbed6f823a286d40a1378626467b09363cbb (diff) | |
download | txr-c9977c0132b2a6a3df994dbdf58c27689658f20f.tar.gz txr-c9977c0132b2a6a3df994dbdf58c27689658f20f.tar.bz2 txr-c9977c0132b2a6a3df994dbdf58c27689658f20f.zip |
* Makefile (conftest, conftest2): Link math
library so we can test for math functions.
* arith.c (log2_init): New static function.
(log2, logtwo): New functions.
(l2): New static variable.
(arith_init): Call log2_init.
* configure (lang_flags): Switching _XOPEN_SOURCE
from 500 to 600 to reveal log2.
Adding test for log2.
* eval.c (eval_init): Register log2 intrinsic.
* lib.h (logtwo): Declared.
* txr.1: Documented log2.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -3585,6 +3585,7 @@ void eval_init(void) reg_fun(intern(lit("atan2"), user_package), func_n2(atang2)); reg_fun(intern(lit("log"), user_package), func_n1(loga)); reg_fun(intern(lit("log10"), user_package), func_n1(logten)); + reg_fun(intern(lit("log2"), user_package), func_n1(logtwo)); reg_fun(intern(lit("exp"), user_package), func_n1(expo)); reg_fun(intern(lit("sqrt"), user_package), func_n1(sqroot)); reg_fun(intern(lit("cum-norm-dist"), user_package), func_n1(cum_norm_dist)); |