aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/collection/set/ordered.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/collection/set/ordered.lux')
-rw-r--r--stdlib/source/library/lux/data/collection/set/ordered.lux28
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux
index e97e0d6dd..5827e0993 100644
--- a/stdlib/source/library/lux/data/collection/set/ordered.lux
+++ b/stdlib/source/library/lux/data/collection/set/ordered.lux
@@ -1,16 +1,16 @@
(.using
- [library
- [lux {"-" list}
- [abstract
- [equivalence {"+" Equivalence}]
- [order {"+" Order}]]
- [data
- [collection
- ["[0]" list ("[1]#[0]" mix)]
- [dictionary
- ["/" ordered]]]]
- [type
- abstract]]])
+ [library
+ [lux {"-" has list}
+ [abstract
+ [equivalence {"+" Equivalence}]
+ [order {"+" Order}]]
+ [data
+ [collection
+ ["[0]" list ("[1]#[0]" mix)]
+ [dictionary
+ ["/" ordered]]]]
+ [type
+ abstract]]])
(abstract: .public (Set a)
(/.Dictionary a a)
@@ -58,13 +58,13 @@
(All (_ a) (-> (Set a) (Set a) (Set a)))
(|> (..list right)
(list.only (..member? left))
- (..of_list (value@ /.#&order (:representation right)))))
+ (..of_list (the /.#&order (:representation right)))))
(def: .public (difference param subject)
(All (_ a) (-> (Set a) (Set a) (Set a)))
(|> (..list subject)
(list.only (|>> (..member? param) not))
- (..of_list (value@ /.#&order (:representation subject)))))
+ (..of_list (the /.#&order (:representation subject)))))
(implementation: .public equivalence
(All (_ a) (Equivalence (Set a)))