From 72b4eecdc514387ab3b1c105cfd49436c9eb1e8d Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 25 Oct 2020 05:10:08 -0400 Subject: Some improvements to the Lux syntax parser. --- lux-jvm/source/luxc/lang/translation/jvm/loop.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lux-jvm/source/luxc/lang/translation/jvm/loop.lux') 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))))) -- cgit v1.2.3