summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-03-29 15:57:45 -0700
committerKaz Kylheku <kaz@kylheku.com>2012-03-29 15:57:45 -0700
commit2b1e05769d01cb036cf0a82231eb87b698a33426 (patch)
treed072354049911ec058a01b9cc69f41e2ca2ebe2d /eval.c
parent9e60a829fdd3874f510ebc57d1a378d020a55fb9 (diff)
downloadtxr-2b1e05769d01cb036cf0a82231eb87b698a33426.tar.gz
txr-2b1e05769d01cb036cf0a82231eb87b698a33426.tar.bz2
txr-2b1e05769d01cb036cf0a82231eb87b698a33426.zip
* arith.c (gcd): Allow zeros. Don't issue "non-integral"
exception if MPI fails. (floorf, ceili): Map integer argument to itself. (tang, asine, acosi): New functions. * eval.c (eval_init): New intrinsics: tan, asin, acos. * lib.h (tang, asine, acosi): Declared. * txr.1: Documented gcd, abs, floor, ceil, sin, cos, tan asin, acos, atan, log, and exp. * txr.vim: Highlighting for tang, asine, acosi.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 4a028ca4..3fdee26f 100644
--- a/eval.c
+++ b/eval.c
@@ -2191,6 +2191,9 @@ void eval_init(void)
reg_fun(intern(lit("ceil"), user_package), func_n1(ceili));
reg_fun(intern(lit("sin"), user_package), func_n1(sine));
reg_fun(intern(lit("cos"), user_package), func_n1(cosi));
+ reg_fun(intern(lit("tan"), user_package), func_n1(tang));
+ reg_fun(intern(lit("asin"), user_package), func_n1(asine));
+ reg_fun(intern(lit("acos"), user_package), func_n1(acosi));
reg_fun(intern(lit("atan"), user_package), func_n1(atang));
reg_fun(intern(lit("log"), user_package), func_n1(loga));
reg_fun(intern(lit("exp"), user_package), func_n1(expo));