diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/loop.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/loop.jvm.lux b/new-luxc/source/luxc/lang/translation/loop.jvm.lux index d9216f1a7..6e51d7eed 100644 --- a/new-luxc/source/luxc/lang/translation/loop.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/loop.jvm.lux @@ -25,7 +25,7 @@ (do meta;Monad<Meta> [[@begin offset] hostL;anchor argsI (monad;map @ (function [[register argS]] - (let [register' (n.+ offset register)] + (let [register' (|> register (n.+ offset))] (: (Meta $;Inst) (case argS (^multi (^code ((~ [_ (#;Int var)]))) @@ -50,7 +50,7 @@ (do meta;Monad<Meta> [@begin $i;make-label initsI+ (monad;map @ translate initsS+) - bodyI (hostL;with-anchor [@begin offset] + bodyI (hostL;with-anchor [@begin (n.inc offset)] (translate bodyS)) #let [initializationI (|> (list;enumerate initsI+) (list/map (function [[register initI]] |