diff options
Diffstat (limited to 'stdlib/source/lux/data/coll/array.lux')
| -rw-r--r-- | stdlib/source/lux/data/coll/array.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/coll/array.lux b/stdlib/source/lux/data/coll/array.lux index 8f3bee0c3..842acec39 100644 --- a/stdlib/source/lux/data/coll/array.lux +++ b/stdlib/source/lux/data/coll/array.lux @@ -149,7 +149,7 @@ #.None output))))) -(struct: #export (Equivalence<Array> Equivalence<a>) +(structure: #export (Equivalence<Array> Equivalence<a>) (All [a] (-> (Equivalence a) (Equivalence (Array a)))) (def: (= xs ys) (let [sxs (size xs) @@ -170,7 +170,7 @@ (list.n/range +0 (dec sxs))))) )) -(struct: #export Monoid<Array> (All [a] (Monoid (Array a))) +(structure: #export Monoid<Array> (All [a] (Monoid (Array a))) (def: identity (new +0)) (def: (compose xs ys) @@ -180,7 +180,7 @@ (copy sxs +0 xs +0) (copy sxy +0 ys sxs))))) -(struct: #export _ (Functor Array) +(structure: #export _ (Functor Array) (def: (map f ma) (let [arr-size (size ma)] (if (n/= +0 arr-size) @@ -196,7 +196,7 @@ (list.n/range +0 (dec arr-size))) )))) -(struct: #export _ (Fold Array) +(structure: #export _ (Fold Array) (def: (fold f init xs) (let [arr-size (size xs)] (loop [so-far init |