From c542e618266c2f321704bef381b14213c30cc2e0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Feb 2019 19:54:18 -0400
Subject: Ported tests for lux/control/interval to the new format.

---
 stdlib/source/lux/control/interval.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/lux')

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))
-- 
cgit v1.2.3