diff options
Diffstat (limited to 'stdlib/source/lux/control/interval.lux')
-rw-r--r-- | stdlib/source/lux/control/interval.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/control/interval.lux b/stdlib/source/lux/control/interval.lux index 940b85a21..f4faa0ea7 100644 --- a/stdlib/source/lux/control/interval.lux +++ b/stdlib/source/lux/control/interval.lux @@ -136,9 +136,9 @@ (structure: #export equivalence (All [a] (Equivalence (Interval a))) (def: (= reference sample) - (let [(^open ".") reference] - (and (= bottom (:: sample bottom)) - (= top (:: sample top)))))) + (let [(^open "_/.") reference] + (and (_/= _/bottom (:: sample bottom)) + (_/= _/top (:: sample top)))))) (def: #export (nested? reference sample) (All [a] (-> (Interval a) (Interval a) Bit)) |