From 73da10d3b03c8fde87e6d390dadf355b43a2c7c0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 13 Dec 2018 06:26:15 -0800
Subject: Use tnil instead of if2 in arithmetic predicates.

* arith.c (zerop, plusp, minusp): style: if2(expr, t) should
be using tnil(expr).
---
 arith.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/arith.c b/arith.c
index 1a8c44da..084d8cf5 100644
--- a/arith.c
+++ b/arith.c
@@ -1547,9 +1547,9 @@ val zerop(val num)
   case BGNUM:
     return nil;
   case FLNUM:
-    return if2(c_flo(num, self) == 0.0, t);
+    return tnil(c_flo(num, self) == 0.0);
   case CHR:
-    return if2(num == chr(0), t);
+    return tnil(num == chr(0));
   case RNG:
     return and2(zerop(from(num)), zerop(to(num)));
   default:
@@ -1563,13 +1563,13 @@ val plusp(val num)
 
   switch (type(num)) {
   case NUM:
-    return if2(c_n(num) > 0, t);
+    return tnil(c_n(num) > 0);
   case BGNUM:
-    return if2(mp_cmp_z(mp(num)) == MP_GT, t);
+    return tnil(mp_cmp_z(mp(num)) == MP_GT);
   case FLNUM:
-    return if2(c_flo(num, self) > 0.0, t);
+    return tnil(c_flo(num, self) > 0.0);
   case CHR:
-    return if2(num != chr(0), t);
+    return tnil(num != chr(0));
   default:
     not_number(self, num);
   }
@@ -1581,11 +1581,11 @@ val minusp(val num)
 
   switch (type(num)) {
   case NUM:
-    return if2(c_n(num) < 0, t);
+    return tnil(c_n(num) < 0);
   case BGNUM:
-    return if2(mp_cmp_z(mp(num)) == MP_LT, t);
+    return tnil(mp_cmp_z(mp(num)) == MP_LT);
   case FLNUM:
-    return if2(c_flo(num, self) < 0.0, t);
+    return tnil(c_flo(num, self) < 0.0);
   case CHR:
     return nil;
   default:
-- 
cgit v1.2.3