diff options
author | Eduardo Julian | 2017-11-14 20:03:14 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-14 20:03:14 -0400 |
commit | b88027c19181f24584d5ad1c46fb2443d65edece (patch) | |
tree | ae6ce4b8cc4dab3a5b05e9e9759df041509c4113 /new-luxc/source/luxc/lang/translation/loop.jvm.lux | |
parent | 686a46f569b818681583e6ce75b37b25642b375b (diff) |
- Fixed some bugs.
- new-luxc can now fully compile lux.lux!
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/loop.jvm.lux')
-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]] |