* eval.c (rangev_func, range_star_v_func): Use numeric

equivalence comparison for end test, rather than eql.

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  <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!
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)))))