aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/collection/tree/finger.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 00:07:08 -0400
committerEduardo Julian2021-09-12 00:07:08 -0400
commitdda05bca0956af5e5b3875c4cc36e61aa04772e4 (patch)
tree0f8b27697d58ab5c8e41aba7c7c9f769d3800767 /stdlib/source/library/lux/data/collection/tree/finger.lux
parentd48270f43c404ba19ca04da2553455ecaaf2caba (diff)
Made the "#" character great again!
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/data/collection/tree/finger.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux
index 5cef4d130..01e125e9d 100644
--- a/stdlib/source/library/lux/data/collection/tree/finger.lux
+++ b/stdlib/source/library/lux/data/collection/tree/finger.lux
@@ -91,21 +91,21 @@
_node root]
(case _node
{0 #0 value}
- {#.Some value}
+ {.#Some value}
{0 #1 [left right]}
(let [shifted_tag (tag//composite _tag (..tag left))]
(if (predicate shifted_tag)
(recur _tag (value@ #root (:representation left)))
(recur shifted_tag (value@ #root (:representation right))))))))
- #.None)))
+ {.#None})))
)
(def: .public (exists? predicate tree)
(All (_ @ t v) (-> (Predicate t) (Tree @ t v) Bit))
(case (..one predicate tree)
- {#.Some _}
+ {.#Some _}
true
- #.None
+ {.#None}
false))