Now using the new syntax for variants (even though they still work the old way... for now)

1 files changed, 9 insertions, 5 deletions

diff --git a/stdlib/source/lux/abstract/enum.lux b/stdlib/source/lux/abstract/enum.lux
index 9f074f7c5..9470cd142 100644
--- a/stdlib/source/lux/abstract/enum.lux
+++ b/stdlib/source/lux/abstract/enum.lux
@@ -12,10 +12,14 @@
 (def: #export (range enum from to)
   {#.doc "An inclusive [from, to] range of values."}
   (All [a] (-> (Enum a) a a (List a)))
-  (let [(^open "/@.") enum
-        <= (order.<= /@&order)]
+  (let [(^open "/@.") enum]
     (loop [end to
            output #.Nil]
-      (if (<= end from)
-        (recur (/@pred end) (#.Cons end output))
-        output))))
+      (cond (/@< end from)
+            (recur (/@pred end) (#.Cons end output))
+
+            (/@= end from)
+            (#.Cons end output)
+
+            ## else
+            output))))