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.

1 files changed, 1 insertions, 0 deletions

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));