summaryrefslogtreecommitdiffstats
path: root/arith.c
diff options
context:
space:
mode:
Diffstat (limited to 'arith.c')
-rw-r--r--arith.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/arith.c b/arith.c
index 20d1ae3b..9aeb0875 100644
--- a/arith.c
+++ b/arith.c
@@ -945,6 +945,13 @@ divzero:
uw_throw(numeric_error_s, lit("mod: division by zero"));
}
+val trunc_rem(val anum, val bnum)
+{
+ val quot = trunc(anum, bnum);
+ val rem = minus(anum, mul(quot, bnum));
+ return list(quot, rem, nao);
+}
+
val wrap_star(val start, val end, val num)
{
val modulus = minus(end, start);