* arith.c (trunc_rem): New function.

* eval.c (eval_init): Register trunc-rem intrinsic.

* lib.h (trunc_rem): Declared.

* txr.1: Documented trunc-rem.

* tl.vim, txr.vim: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 984dd851..2ce36aaf 100644
--- a/lib.h
+++ b/lib.h
@@ -544,6 +544,7 @@ val mul(val anum, val bnum);
 val mulv(val nlist);
 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);