diff options
| author | Eduardo Julian | 2020-10-25 05:10:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-25 05:10:08 -0400 |
| commit | 72b4eecdc514387ab3b1c105cfd49436c9eb1e8d (patch) | |
| tree | 20d8e52d5769b00be003dea58754b5bea79bb9e3 /lux-jvm/source/luxc/lang/translation/jvm/function.lux | |
| parent | e153b011bb94ba95474505c307873616bb493b6d (diff) | |
Some improvements to the Lux syntax parser.
Diffstat (limited to 'lux-jvm/source/luxc/lang/translation/jvm/function.lux')
| -rw-r--r-- | lux-jvm/source/luxc/lang/translation/jvm/function.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/function.lux b/lux-jvm/source/luxc/lang/translation/jvm/function.lux index 2a792612c..97b32f8c2 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/function.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/function.lux @@ -201,7 +201,7 @@ @labels (list@map $.new-label (list.repeat num-partials [])) over-extent (|> (.int function-arity) (i.- (.int apply-arity))) casesI (|> (list@compose @labels (list @default)) - (list.zip2 (enum.range n.enum 0 num-partials)) + (list.zip/2 (enum.range n.enum 0 num-partials)) (list@map (.function (_ [stage @label]) (let [load-partialsI (if (n.> 0 stage) (|> (enum.range n.enum 0 (dec stage)) @@ -259,7 +259,7 @@ (def: #export with-environment (-> (Environment Synthesis) Def) - (|>> list.enumerate + (|>> list.enumeration (list@map (.function (_ [env-idx env-source]) (def.field #$.Private $.finalF (reference.foreign-name env-idx) //.$Value))) def.fuse)) @@ -324,7 +324,7 @@ [functionI (generate archive functionS) argsI (monad.map @ (generate archive) argsS) #let [applyI (|> argsI - (list.split-all //runtime.num-apply-variants) + (list.chunk //runtime.num-apply-variants) (list@map (.function (_ chunkI+) (|>> (_.CHECKCAST //.$Function) (_.fuse chunkI+) |