diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/coll/tree/rose.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/lux/data/coll/tree/rose.lux b/stdlib/source/lux/data/coll/tree/rose.lux index e86dac944..077f68191 100644 --- a/stdlib/source/lux/data/coll/tree/rose.lux +++ b/stdlib/source/lux/data/coll/tree/rose.lux @@ -1,4 +1,4 @@ -(;module: +(.module: lux (lux (control functor [monad #+ do Monad] @@ -18,7 +18,7 @@ ## [Values] (def: #export (flatten tree) (All [a] (-> (Tree a) (List a))) - (#;Cons (get@ #value tree) + (#.Cons (get@ #value tree) (L/join (L/map flatten (get@ #children tree))))) (def: #export (leaf value) @@ -37,15 +37,15 @@ (def: tree^ (Syntax Tree-Code) - (|> (|>> p;some s;record (p;seq s;any)) - p;rec - p;some - s;record - (p;seq s;any) - s;tuple)) + (|> (|>> p.some s.record (p.seq s.any)) + p.rec + p.some + s.record + (p.seq s.any) + s.tuple)) (syntax: #export (tree [root tree^]) - {#;doc (doc "Tree literals." + {#.doc (doc "Tree literals." (tree Int [10 {20 {} 30 {} 40 {}}]))} @@ -57,7 +57,7 @@ (struct: #export (Eq<Tree> Eq<a>) (All [a] (-> (Eq a) (Eq (Tree a)))) (def: (= tx ty) (and (:: Eq<a> = (get@ #value tx) (get@ #value ty)) - (:: (list;Eq<List> (Eq<Tree> Eq<a>)) = (get@ #children tx) (get@ #children ty))))) + (:: (list.Eq<List> (Eq<Tree> Eq<a>)) = (get@ #children tx) (get@ #children ty))))) (struct: #export _ (Functor Tree) (def: (map f fa) |