From dedf96f4bd008531e357c6141e3e8219b0ea7065 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 11 Dec 2011 20:17:59 -0800
Subject: * arith.c (trunc): Error messages prefixed with trunc:. (mod): New
 function, reimplementation of removed mod from lib.c.

* lib.c (mod): Function removed.
---
 lib.c | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index cd9d8edd..9432111d 100644
--- a/lib.c
+++ b/lib.c
@@ -857,19 +857,6 @@ val mulv(val nlist)
   return reduce_left(func_n2(mul), cdr(nlist), car(nlist), nil);
 }
 
-val mod(val anum, val bnum)
-{
-  cnum a = c_num(anum);
-  cnum b = c_num(bnum);
-
-  numeric_assert (b != 0);
-
-  {
-    cnum result = a % b;
-    return num(result);
-  } 
-}
-
 val zerop(val num)
 {
   return c_num(num) == 0 ? t : nil;
-- 
cgit v1.2.3