diff options
Diffstat (limited to 'stdlib/source/lux/data/coll/tree/rose.lux')
-rw-r--r-- | stdlib/source/lux/data/coll/tree/rose.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/coll/tree/rose.lux b/stdlib/source/lux/data/coll/tree/rose.lux index 8171dcdaa..1fb5fc85a 100644 --- a/stdlib/source/lux/data/coll/tree/rose.lux +++ b/stdlib/source/lux/data/coll/tree/rose.lux @@ -54,18 +54,18 @@ #children (list (~+ (L/map recur children)))}))))))) ## [Structs] -(struct: #export (Equivalence<Tree> Equivalence<a>) (All [a] (-> (Equivalence a) (Equivalence (Tree a)))) +(structure: #export (Equivalence<Tree> Equivalence<a>) (All [a] (-> (Equivalence a) (Equivalence (Tree a)))) (def: (= tx ty) (and (:: Equivalence<a> = (get@ #value tx) (get@ #value ty)) (:: (list.Equivalence<List> (Equivalence<Tree> Equivalence<a>)) = (get@ #children tx) (get@ #children ty))))) -(struct: #export _ (Functor Tree) +(structure: #export _ (Functor Tree) (def: (map f fa) {#value (f (get@ #value fa)) #children (L/map (map f) (get@ #children fa))})) -(struct: #export _ (Fold Tree) +(structure: #export _ (Fold Tree) (def: (fold f init tree) (L/fold (function (_ tree' init') (fold f init' tree')) (f (get@ #value tree) |