aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux')
-rw-r--r--stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
index 49180db8b..b575ec97b 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
@@ -5,7 +5,7 @@
[data
["." product]
[text
- format]
+ ["%" format (#+ format)]]
[collection
["." list ("#@." functor)]]]
[target
@@ -21,7 +21,7 @@
(def: #export (scope generate [start initsS+ bodyS])
(-> Phase (Scope Synthesis) (Operation (Expression Any)))
(do ////.monad
- [@loop (:: @ map (|>> %n (format "loop") _.var) ///.next)
+ [@loop (:: @ map (|>> %.nat (format "loop") _.var) ///.next)
initsO+ (monad.map @ generate initsS+)
bodyO (///.with-anchor @loop
(generate bodyS))