diff options
| author | Eduardo Julian | 2019-02-05 19:54:18 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-05 19:54:18 -0400 |
| commit | c542e618266c2f321704bef381b14213c30cc2e0 (patch) | |
| tree | 85c907d9f55201ff966c326f2b04dcdd1dd81108 /stdlib/source/lux | |
| parent | 47b97c128bde837fa803a605f3e011a3e9ddd71c (diff) | |
Ported tests for lux/control/interval to the new format.
Diffstat (limited to 'stdlib/source/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)) |