diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/data/collection/dictionary/ordered.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index 8d91b5cfb..b64cf7067 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -55,11 +55,11 @@ {#&order order #root #.None}) -## TODO: Doing inneficient access of Order functions due to compiler bug. -## TODO: Must improve it as soon as bug is fixed. +... TODO: Doing inneficient access of Order functions due to compiler bug. +... TODO: Must improve it as soon as bug is fixed. (def: .public (get key dict) (All [k v] (-> k (Dictionary k v) (Maybe v))) - (let [## (^open "_\.") (get@ #&order dict) + (let [... (^open "_\.") (get@ #&order dict) ] (loop [node (get@ #root dict)] (case node @@ -69,22 +69,22 @@ (#.Some node) (let [node_key (get@ #key node)] (cond (\ dict = node_key key) - ## (_\= node_key key) + ... (_\= node_key key) (#.Some (get@ #value node)) (\ dict < node_key key) - ## (_\< node_key key) + ... (_\< node_key key) (recur (get@ #left node)) - ## (_\> (get@ #key node) key) + ... (_\> (get@ #key node) key) (recur (get@ #right node)))) )))) -## TODO: Doing inneficient access of Order functions due to compiler bug. -## TODO: Must improve it as soon as bug is fixed. +... TODO: Doing inneficient access of Order functions due to compiler bug. +... TODO: Must improve it as soon as bug is fixed. (def: .public (key? dict key) (All [k v] (-> (Dictionary k v) k Bit)) - (let [## (^open "_\.") (get@ #&order dict) + (let [... (^open "_\.") (get@ #&order dict) ] (loop [node (get@ #root dict)] (case node @@ -94,9 +94,9 @@ (#.Some node) (let [node_key (get@ #key node)] (or (\ dict = node_key key) - ## (_\= node_key key) + ... (_\= node_key key) (if (\ dict < node_key key) - ## (_\< node_key key) + ... (_\< node_key key) (recur (get@ #left node)) (recur (get@ #right node))))))))) @@ -272,7 +272,7 @@ [(order.> (get@ #&order dict)) #right ..with_right] )) - ## (_\= reference key) + ... (_\= reference key) (#.Some (set@ #value value root)) ))) ))] |