diff options
Diffstat (limited to 'stdlib/source/lux/data/collection/tree.lux')
-rw-r--r-- | stdlib/source/lux/data/collection/tree.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/data/collection/tree.lux b/stdlib/source/lux/data/collection/tree.lux index 16c394525..9519ae0b9 100644 --- a/stdlib/source/lux/data/collection/tree.lux +++ b/stdlib/source/lux/data/collection/tree.lux @@ -10,7 +10,7 @@ ["<c>" code (#+ Parser)]]] [data [collection - ["." list ("#@." monad fold)]]] + ["." list ("#\." monad fold)]]] [macro [syntax (#+ syntax:)] ["." code]]]) @@ -22,7 +22,7 @@ (def: #export (flatten tree) (All [a] (-> (Tree a) (List a))) (#.Cons (get@ #value tree) - (list@join (list@map flatten (get@ #children tree))))) + (list\join (list\map flatten (get@ #children tree))))) (def: #export (leaf value) (All [a] (-> a (Tree a))) @@ -57,7 +57,7 @@ 40 {}})))} (wrap (list (` (~ (loop [[value children] root] (` {#value (~ value) - #children (list (~+ (list@map recur children)))}))))))) + #children (list (~+ (list\map recur children)))}))))))) (structure: #export (equivalence super) (All [a] (-> (Equivalence a) (Equivalence (Tree a)))) @@ -71,14 +71,14 @@ (def: (map f fa) {#value (f (get@ #value fa)) - #children (list@map (map f) + #children (list\map (map f) (get@ #children fa))})) (structure: #export fold (Fold Tree) (def: (fold f init tree) - (list@fold (function (_ tree' init') (fold f init' tree')) + (list\fold (function (_ tree' init') (fold f init' tree')) (f (get@ #value tree) init) (get@ #children tree)))) |