diff options
| author | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
| commit | b71b861008381626633bf28b033cd866d7e4e0b7 (patch) | |
| tree | 3ee21cd21e6dd80f6fcdf90173bbd6162b616d8f /stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux | |
| parent | fcee38da766a683ed5569978be153c6e7a8ae0af (diff) | |
Improved the convention for using text formatters.
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.lux | 4 |
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)) |