Bugfix: incorrect less comparison for ranges.

* lib.c (less): Missing test for equality
before comparing to fields.

1 files changed, 12 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index acc55a90..e3d17386 100644
--- a/lib.c
+++ b/lib.c
@@ -3899,9 +3899,18 @@ tail:
       return tnil(lenl < lenr);
     }
   case RNG:
-    if (less(from(left), from(right)))
-      return t;
-    return less(to(left), to(right));
+    {
+      val fl = from(left);
+      val fr = from(right);
+
+      if (less(fl, fr))
+        return t;
+
+      if (equal(fl, fr))
+        return less(to(left), to(right));
+
+      return nil;
+    }
   default:
     internal_error("unhandled case in less function");
   }