* arith.c: File is now generated using TXR.

(NOOP): New macro.
(plus): Use NOOP macro.
(minus, neg): Function moved here from lib.c and rewritten
for bignum support.

* lib.c (minus, neg): Functions removed.

* arith.txr: New file.

1 files changed, 0 insertions, 18 deletions

diff --git a/lib.c b/lib.c
index d99d16e2..acd7d643 100644
--- a/lib.c
+++ b/lib.c
@@ -837,24 +837,6 @@ val plusv(val nlist)
   return reduce_left(func_n2(plus), nlist, num(0), nil);
 }
 
-val minus(val anum, val bnum)
-{
-  cnum a = c_num(anum);
-  cnum b = c_num(bnum);
-
-  numeric_assert (b != NUM_MIN || NUM_MIN == -NUM_MAX);
-  numeric_assert (a <= 0 || -b <= 0 || NUM_MAX + b >= a);
-  numeric_assert (a >= 0 || -b >= 0 || NUM_MIN + b <= a);
-
-  return num(a - b);
-}
-
-val neg(val anum)
-{
-  cnum n = c_num(anum);
-  return num(-n);
-}
-
 val minusv(val minuend, val nlist)
 {
   if (nlist)