* 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/eval.c b/eval.c
index 056f4b68..7f8f746f 100644
--- a/eval.c
+++ b/eval.c
@@ -3846,6 +3846,7 @@ void eval_init(void)
   reg_fun(intern(lit("abs"), user_package), func_n1(abso));
   reg_fun(intern(lit("trunc"), user_package), func_n2(trunc));
   reg_fun(intern(lit("mod"), user_package), func_n2(mod));
+  reg_fun(intern(lit("trunc-rem"), user_package), func_n2(trunc_rem));
   reg_fun(intern(lit("wrap"), user_package), func_n3(wrap));
   reg_fun(intern(lit("wrap*"), user_package), func_n3(wrap_star));
   reg_fun(intern(lit("/"), user_package), func_n2o(divi, 1));