From 1aff5cbf9c7c79c1deb58d6b985f2bd03c51a4ba Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 25 Feb 2017 05:09:34 -0800 Subject: Adding round function. * arith.c (round1): New static function. (roundiv): New function. * configure: New test for C99 round function. * eval.c (eval_init): Register round intrinsic. * txr.1: Documented. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 41dd8e24..0312292a 100644 --- a/eval.c +++ b/eval.c @@ -5704,6 +5704,7 @@ void eval_init(void) reg_fun(intern(lit("lcm"), user_package), func_n0v(lcmv)); reg_fun(intern(lit("floor"), user_package), func_n2o(floordiv, 1)); reg_fun(intern(lit("ceil"), user_package), func_n2o(ceildiv, 1)); + reg_fun(intern(lit("round"), user_package), func_n2o(roundiv, 1)); 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)); -- cgit v1.2.3