summaryrefslogtreecommitdiffstats
path: root/arith.c
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 /arith.c
parent5f26f2f8baaf377e414660df4e71afce9c4f4f48 (diff)
downloadtxr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.tar.gz
txr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.tar.bz2
txr-0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3.zip
* arith.c (numeq): Fix misplaced parenthesis.
Diffstat (limited to 'arith.c')
-rw-r--r--arith.c2
1 files changed, 1 insertions, 1 deletions
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;