summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c15
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");
}