diff options
Diffstat (limited to 'stdlib/source/library/lux/type/poly.lux')
| -rw-r--r-- | stdlib/source/library/lux/type/poly.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/type/poly.lux b/stdlib/source/library/lux/type/poly.lux index 8fba22756..def324897 100644 --- a/stdlib/source/library/lux/type/poly.lux +++ b/stdlib/source/library/lux/type/poly.lux @@ -59,13 +59,13 @@ (syntax: .public (derived: [[export_policy name [poly_func poly_args] ?custom_impl] ..derivedP]) (do {! meta.monad} - [poly_args (monad.map ! meta.normal poly_args) + [poly_args (monad.each ! meta.normal poly_args) .let [impl (case ?custom_impl (#.Some custom_impl) custom_impl #.None - (` ((~ (code.identifier poly_func)) (~+ (list\map code.identifier poly_args)))))]] + (` ((~ (code.identifier poly_func)) (~+ (list\each code.identifier poly_args)))))]] (in (.list (` (def: (~ export_policy) (~ (code.identifier ["" name])) {#.implementation? #1} (~ impl))))))) @@ -75,7 +75,7 @@ (`` (case type (#.Primitive name params) (` (#.Primitive (~ (code.text name)) - (.list (~+ (list\map (code env) params))))) + (.list (~+ (list\each (code env) params))))) (^template [<tag>] [(<tag> idx) @@ -102,8 +102,8 @@ (^template [<macro> <tag> <flattener>] [(<tag> left right) - (` (<macro> (~+ (list\map (code env) (<flattener> type)))))]) - ([.Variant #.Sum type.flat_variant] + (` (<macro> (~+ (list\each (code env) (<flattener> type)))))]) + ([.Union #.Sum type.flat_variant] [.Tuple #.Product type.flat_tuple]) (#.Named name sub_type) @@ -111,7 +111,7 @@ (^template [<tag>] [(<tag> scope body) - (` (<tag> (.list (~+ (list\map (code env) scope))) + (` (<tag> (.list (~+ (list\each (code env) scope))) (~ (code env body))))]) ([#.UnivQ] [#.ExQ]) ))) |