diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | eval.c | 6 |
2 files changed, 8 insertions, 3 deletions
@@ -1,3 +1,8 @@ +2014-04-08 Kaz Kylheku <kaz@kylheku.com> + + * eval.c (rangev_func, range_star_v_func): Use numeric + equivalence comparison for end test, rather than eql. + 2014-04-07 Kaz Kylheku <kaz@kylheku.com> * lib.c (eql): Bugfix: not handling floating-point types! @@ -2805,8 +2805,8 @@ static val rangev_func(val env, val lcons) rplaca(lcons, from); - if (eql(from, to) || - (to && + if (numeq(from, to) || + (to && ((lt(from, to) && gt(next, to)) || (gt(from, to) && lt(next, to))))) { @@ -2839,7 +2839,7 @@ static val range_star_v_func(val env, val lcons) rplaca(lcons, from); - if (eql(next, to) || + if (numeq(next, to) || (to && ((lt(from, to) && gt(next, to)) || (gt(from, to) && lt(next, to))))) |