summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-03-29 23:35:13 -0700
committerKaz Kylheku <kaz@kylheku.com>2012-03-29 23:35:13 -0700
commit0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3 (patch)
tree8e9b316fa86ddddb28bdfe5dfcdc49c6950a0f39
parent5f26f2f8baaf377e414660df4e71afce9c4f4f48 (diff)
downloadtxr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.tar.gz
txr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.tar.bz2
txr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.zip
* arith.c (numeq): Fix misplaced parenthesis.
-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;