diff options
Diffstat (limited to 'stdlib/source/lux/data/collection/dictionary/ordered.lux')
| -rw-r--r-- | stdlib/source/lux/data/collection/dictionary/ordered.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/data/collection/dictionary/ordered.lux b/stdlib/source/lux/data/collection/dictionary/ordered.lux index 96e989300..9e9a2ea8d 100644 --- a/stdlib/source/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/lux/data/collection/dictionary/ordered.lux @@ -8,7 +8,7 @@ ["p" product] ["." maybe] [collection - [list ("list/" Monoid<List> Fold<List>)]]] + [list ("list/." Monoid<List> Fold<List>)]]] ["." macro ["." code] ["s" syntax (#+ syntax: Syntax)]]]) @@ -50,7 +50,7 @@ ## TODO: Must improve it as soon as bug is fixed. (def: #export (get key dict) (All [k v] (-> k (Dictionary k v) (Maybe v))) - (let [## (^open "T/") (get@ #order dict) + (let [## (^open "T/.") (get@ #order dict) ] (loop [node (get@ #root dict)] (case node @@ -73,7 +73,7 @@ (def: #export (contains? key dict) (All [k v] (-> k (Dictionary k v) Bit)) - (let [## (^open "T/") (get@ #order dict) + (let [## (^open "T/.") (get@ #order dict) ] (loop [node (get@ #root dict)] (case node @@ -246,7 +246,7 @@ (def: #export (put key value dict) (All [k v] (-> k v (Dictionary k v) (Dictionary k v))) - (let [(^open "T/") (get@ #order dict) + (let [(^open "T/.") (get@ #order dict) root' (loop [?root (get@ #root dict)] (case ?root #.None @@ -469,7 +469,7 @@ (def: #export (remove key dict) (All [k v] (-> k (Dictionary k v) (Dictionary k v))) - (let [(^open "T/") (get@ #order dict) + (let [(^open "T/.") (get@ #order dict) [?root found?] (loop [?root (get@ #root dict)] (case ?root #.None |