diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | arith.c | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -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. @@ -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; |