Bugfix: range and range* broken when "to" argument is

omitted. This was broken in version 89, by the
2014-04-08 commit.

* eval.c (rangev_func, range_star_v_func): Only perform
numeric tests between from and to if to is not nil.

1 files changed, 5 insertions, 5 deletions

diff --git a/eval.c b/eval.c
index bbae73a6..3fcad2d9 100644
--- a/eval.c
+++ b/eval.c
@@ -2789,8 +2789,8 @@ static val rangev_func(val env, val lcons)
 
   rplaca(lcons, from);
 
-  if (numeq(from, to) ||
-      (to &&
+  if (to &&
+      (numeq(from, to) ||
        ((lt(from, to) && gt(next, to)) ||
         (gt(from, to) && lt(next, to)))))
   {
@@ -2823,10 +2823,10 @@ static val range_star_v_func(val env, val lcons)
 
   rplaca(lcons, from);
 
-  if (numeq(next, to) ||
-      (to &&
+  if (to &&
+      (numeq(next, to) ||
        ((lt(from, to) && gt(next, to)) ||
-        (gt(from, to) && lt(next, to)))))
+       (gt(from, to) && lt(next, to)))))
   {
     rplacd(lcons, nil);
     return nil;