diff options
Diffstat (limited to 'stdlib/source/library/lux/data/collection/dictionary')
| -rw-r--r-- | stdlib/source/library/lux/data/collection/dictionary/ordered.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index 4f0254bbb..44848eae6 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -91,7 +91,7 @@ (loop (again [node (the #root dict)]) (case node {.#None} - #0 + false {.#Some node} (let [node_key (the #key node)] @@ -484,13 +484,13 @@ (if (_#= root_key key) [(prepended (the #left root) (the #right root)) - #1] + true] (let [go_left? (_#< root_key key)] (case (again (if go_left? (the #left root) (the #right root))) - [{.#None} #0] - [{.#None} #0] + [{.#None} .false] + [{.#None} false] [side_outcome _] (if go_left? @@ -498,25 +498,25 @@ (^.multi {.#Some left} [(the #color left) {#Black}]) [{.#Some (without_left root_key root_val side_outcome (the #right root))} - #0] + false] _ [{.#Some (red root_key root_val side_outcome (the #right root))} - #0]) + false]) (case (the #right root) (^.multi {.#Some right} [(the #color right) {#Black}]) [{.#Some (without_right root_key root_val (the #left root) side_outcome)} - #0] + false] _ [{.#Some (red root_key root_val (the #left root) side_outcome)} - #0]) + false]) ))) )) {.#None} - [{.#None} #0] + [{.#None} false] ))] (case ?root {.#None} @@ -572,7 +572,7 @@ entriesS (entries sample)]) (case [entriesR entriesS] [{.#End} {.#End}] - #1 + true [{.#Item [keyR valueR] entriesR'} {.#Item [keyS valueS] entriesS'}] (and (/#= keyR keyS) @@ -580,4 +580,4 @@ (again entriesR' entriesS')) _ - #0)))))) + false)))))) |