New floor-rem, ceil-rem and round-rem.

* arith.c (trunc_rem): Move function to below round function.
Make second argument optional, defaulting to one.
(floor_rem, ceil_rem, round_rem): New functions.

* eval.c (eval_init): Registration of trunc-rem altered for
optional argument. New registrations for floor-rem, ceil-rem,
round=rem.

* txr.1: Documented for new functions folded with trunc-rem.

1 files changed, 4 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 590a912d..9e64ba89 100644
--- a/lib.h
+++ b/lib.h
@@ -636,7 +636,6 @@ val mulv(struct args *);
 val divv(val dividend, struct args *);
 val trunc(val anum, val bnum);
 val mod(val anum, val bnum);
-val trunc_rem(val anum, val bnum);
 val wrap_star(val start, val end, val num);
 val wrap(val start, val end, val num);
 val divi(val anum, val bnum);
@@ -683,6 +682,10 @@ val floordiv(val, val);
 val ceili(val);
 val ceildiv(val anum, val bnum);
 val roundiv(val anum, val bnum);
+val trunc_rem(val anum, val bnum);
+val floor_rem(val anum, val bnum);
+val ceil_rem(val anum, val bnum);
+val round_rem(val anum, val bnum);
 val sine(val);
 val cosi(val);
 val tang(val);