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/loop.lux | |
parent | e153b011bb94ba95474505c307873616bb493b6d (diff) |
Some improvements to the Lux syntax parser.
Diffstat (limited to '')
-rw-r--r-- | lux-jvm/source/luxc/lang/translation/jvm/loop.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux index 27a7d58f9..1d22b0e63 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux @@ -39,7 +39,7 @@ (do {@ phase.monad} [[@begin start] generation.anchor #let [pairs (|> argsS - list.enumerate + list.enumeration (list@map (function (_ [register argument]) [(n.+ start register) argument])))] ## It may look weird that first I compile the values separately, @@ -73,7 +73,7 @@ initsI+ (monad.map @ (translate archive) initsS+) iterationI (generation.with-anchor [@begin start] (translate archive iterationS)) - #let [initializationI (|> (list.enumerate initsI+) + #let [initializationI (|> (list.enumeration initsI+) (list@map (function (_ [register initI]) (|>> initI (_.ASTORE (n.+ start register))))) |