summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c14
1 files changed, 0 insertions, 14 deletions
diff --git a/lib.c b/lib.c
index 1c510fd2..cd9d8edd 100644
--- a/lib.c
+++ b/lib.c
@@ -857,20 +857,6 @@ val mulv(val nlist)
return reduce_left(func_n2(mul), cdr(nlist), car(nlist), nil);
}
-val trunc(val anum, val bnum)
-{
- cnum a = c_num(anum);
- cnum b = c_num(bnum);
-
- numeric_assert (b != 0);
-
- {
- cnum result = a / b;
- numeric_assert (result <= NUM_MAX);
- return num(result);
- }
-}
-
val mod(val anum, val bnum)
{
cnum a = c_num(anum);