diff options
| -rw-r--r-- | alv-lib/array-.moon | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/alv-lib/array-.moon b/alv-lib/array-.moon index 1e7e781..e2d2233 100644 --- a/alv-lib/array-.moon +++ b/alv-lib/array-.moon @@ -255,8 +255,8 @@ Invokes `fn` once for each element in `array` and returns an array of the result tail = [L\push t\eval, scope for t in *tail] { array, fn } = tail - fndef = fn.result assert fn\type! == T.fndef, "fn has to be a fndef" + array_type = array\type! assert array_type.__class == Array, Error 'argument', "expected an Array" @@ -264,22 +264,22 @@ Invokes `fn` once for each element in `array` and returns an array of the result tag_o = @tag\clone Tag.parse tostring i tag_i = @tag\clone tag_o Cell tag_o, { - with Constant.literal T.fndef, fndef!, 'fn' - .meta = fndef.meta + Dummy fn\make_ref! Cell tag_i, { - Constant.literal T.opdef, get!, 'get' - Constant.literal array_type, array.result!, 'array' + Dummy.literal T.opdef, get! + Dummy array\make_ref! Constant.num i-1 } } tag = @tag\clone Tag.parse '-1' inner = Cell tag, { - Constant.literal T.opdef, array_constr, 'array' + Dummy.literal T.opdef, array_constr unpack invocations } - super inner\eval scope + node = inner\eval scope + super RTNode children: { array, fn, node }, result: node.result Constant.meta meta: |