diff options
Diffstat (limited to 'stdlib/source/lux/data/collection/row.lux')
-rw-r--r-- | stdlib/source/lux/data/collection/row.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/lux/data/collection/row.lux b/stdlib/source/lux/data/collection/row.lux index 1e74054e5..dff272a91 100644 --- a/stdlib/source/lux/data/collection/row.lux +++ b/stdlib/source/lux/data/collection/row.lux @@ -15,8 +15,8 @@ [number ["." i64]] [collection - ["." list ("#/." fold functor monoid)] - ["." array (#+ Array) ("#/." functor fold)]]] + ["." list ("#;." fold functor monoid)] + ["." array (#+ Array) ("#;." functor fold)]]] [macro (#+ with-gensyms) ["." code] ["s" syntax (#+ syntax: Syntax)]]]) @@ -169,7 +169,7 @@ (|> hierarchy array.to-list list.reverse - (list/fold (function (_ sub acc) (list/compose (to-list' sub) acc)) + (list;fold (function (_ sub acc) (list;compose (to-list' sub) acc)) #.Nil)))) ## [Types] @@ -323,12 +323,12 @@ (def: #export (to-list vec) (All [a] (-> (Row a) (List a))) - (list/compose (to-list' (#Hierarchy (get@ #root vec))) + (list;compose (to-list' (#Hierarchy (get@ #root vec))) (to-list' (#Base (get@ #tail vec))))) (def: #export from-list (All [a] (-> (List a) (Row a))) - (list/fold ..add ..empty)) + (list;fold ..add ..empty)) (def: #export (member? a/Equivalence vec val) (All [a] (-> (Equivalence a) (Row a) a Bit)) @@ -370,10 +370,10 @@ (def: (fold f init xs) (case xs (#Base base) - (array/fold f init base) + (array;fold f init base) (#Hierarchy hierarchy) - (array/fold (function (_ node init') (fold f init' node)) + (array;fold (function (_ node init') (fold f init' node)) init hierarchy)))) @@ -390,23 +390,23 @@ (def: identity ..empty) (def: (compose xs ys) - (list/fold add xs (..to-list ys)))) + (list;fold add xs (..to-list ys)))) (structure: node-functor (Functor Node) (def: (map f xs) (case xs (#Base base) - (#Base (array/map f base)) + (#Base (array;map f base)) (#Hierarchy hierarchy) - (#Hierarchy (array/map (map f) hierarchy))))) + (#Hierarchy (array;map (map f) hierarchy))))) (structure: #export functor (Functor Row) (def: (map f xs) {#level (get@ #level xs) #size (get@ #size xs) - #root (|> xs (get@ #root) (array/map (:: node-functor map f))) - #tail (|> xs (get@ #tail) (array/map f))})) + #root (|> xs (get@ #root) (array;map (:: node-functor map f))) + #tail (|> xs (get@ #tail) (array;map f))})) (structure: #export apply (Apply Row) (def: &functor ..functor) |