diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/control/interval.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/control/interval.lux b/stdlib/source/lux/control/interval.lux index c007477b4..673ad630f 100644 --- a/stdlib/source/lux/control/interval.lux +++ b/stdlib/source/lux/control/interval.lux @@ -72,14 +72,14 @@ (def: #export (union left right) (All [a] (-> (Interval a) (Interval a) (Interval a))) (struct (def: enum (get@ #enum right)) - (def: bottom (order;min (get@ [#enum #enum;order] right) (:: left bottom) (:: right bottom))) - (def: top (order;max (get@ [#enum #enum;order] right) (:: left top) (:: right top))))) + (def: bottom (order;min (:: right order) (:: left bottom) (:: right bottom))) + (def: top (order;max (:: right order) (:: left top) (:: right top))))) (def: #export (intersection left right) (All [a] (-> (Interval a) (Interval a) (Interval a))) (struct (def: enum (get@ #enum right)) - (def: bottom (order;max (get@ [#enum #enum;order] right) (:: left bottom) (:: right bottom))) - (def: top (order;min (get@ [#enum #enum;order] right) (:: left top) (:: right top))))) + (def: bottom (order;max (:: right order) (:: left bottom) (:: right bottom))) + (def: top (order;min (:: right order) (:: left top) (:: right top))))) (def: #export (complement interval) (All [a] (-> (Interval a) (Interval a))) |