diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-29 15:57:45 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-29 15:57:45 -0700 |
commit | 2b1e05769d01cb036cf0a82231eb87b698a33426 (patch) | |
tree | d072354049911ec058a01b9cc69f41e2ca2ebe2d /eval.c | |
parent | 9e60a829fdd3874f510ebc57d1a378d020a55fb9 (diff) | |
download | txr-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.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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)); |