* arith.c (floorf, ceili, sine, cosi, atang, loga): New functions.

* eval.c (eval_init): New intrinsic functions registered:
floor, ceil, sin, cons, atan, log.

* lib.h (floorf, ceili, sine, cosi, atang, loga): Declared.

* txr.1: Doc stub section for new functions.

* txr.vim: Highighting added.

1 files changed, 6 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index ba5bd6c5..af3b6a22 100644
--- a/eval.c
+++ b/eval.c
@@ -2187,6 +2187,12 @@ void eval_init(void)
   reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod));
   reg_fun(intern(lit("sqrt"), user_package), func_n1(sqroot));
   reg_fun(intern(lit("gcd"), user_package), func_n2(gcd));
+  reg_fun(intern(lit("floor"), user_package), func_n1(floorf));
+  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("atan"), user_package), func_n1(atang));
+  reg_fun(intern(lit("log"), user_package), func_n1(loga));
   reg_fun(intern(lit("fixnump"), user_package), func_n1(fixnump));
   reg_fun(intern(lit("bignump"), user_package), func_n1(bignump));
   reg_fun(intern(lit("floatp"), user_package), func_n1(floatp));