summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--arith.c2
2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 644b73df..6efe4902 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2012-03-29 Kaz Kylheku <kaz@kylheku.com>
+ * arith.c (numeq): Fix misplaced parenthesis.
+
+2012-03-29 Kaz Kylheku <kaz@kylheku.com>
+
* lib.c (min2, max2): Semantics tweak. If the numbers are equal,
favor the left one.
diff --git a/arith.c b/arith.c
index d39f1396..30ba88c2 100644
--- a/arith.c
+++ b/arith.c
@@ -1128,7 +1128,7 @@ tail:
case TYPE_PAIR(BGNUM, CHR):
return mp_cmp_z(mp(anum)) == MP_EQ ? t : nil;
case TYPE_PAIR(BGNUM, BGNUM):
- return mp_cmp(mp(anum), mp(bnum) == MP_EQ) ? t : nil;
+ return mp_cmp(mp(anum), mp(bnum)) == MP_EQ ? t : nil;
case TYPE_PAIR(NUM, FLNUM):
case TYPE_PAIR(CHR, FLNUM):
return c_num(anum) == c_flo(bnum) ? t : nil;