From 051093caf02184bb9072e6958765e755b55a2885 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 8 Apr 2014 07:17:12 -0700 Subject: * eval.c (rangev_func, range_star_v_func): Use numeric equivalence comparison for end test, rather than eql. --- ChangeLog | 5 +++++ eval.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b9085cec..035ae2d9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-04-08 Kaz Kylheku + + * eval.c (rangev_func, range_star_v_func): Use numeric + equivalence comparison for end test, rather than eql. + 2014-04-07 Kaz Kylheku * lib.c (eql): Bugfix: not handling floating-point types! diff --git a/eval.c b/eval.c index 9d490a5a..ac6acced 100644 --- a/eval.c +++ b/eval.c @@ -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))))) -- cgit v1.2.3