From 0a252c30582c4134c7c1d8d7cacab7cf00f3c2c3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 29 Mar 2012 23:35:13 -0700 Subject: * arith.c (numeq): Fix misplaced parenthesis. --- ChangeLog | 4 ++++ arith.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 644b73df..6efe4902 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2012-03-29 Kaz Kylheku + + * arith.c (numeq): Fix misplaced parenthesis. + 2012-03-29 Kaz Kylheku * lib.c (min2, max2): Semantics tweak. If the numbers are equal, 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; -- cgit v1.2.3