diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/generation')
11 files changed, 22 insertions, 16 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux index c94b68337..314fe300d 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux @@ -739,7 +739,8 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! ["" ..prefix] ($_ _.then - _.use-strict - ..runtime))] + [_ (///.save! true ["" ..prefix] + ($_ _.then + _.use-strict + ..runtime))] (///.save-buffer! ..artifact)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux index 517af6550..9fa8a3c7d 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux @@ -39,14 +39,14 @@ (case inits #.Nil (do ////.monad - [_ (///.save! ["" function-name] + [_ (///.save! true ["" function-name] function-definition)] (wrap (|> (_.var function-name) (_.apply/* inits)))) _ (do ////.monad [@closure (:: @ map _.var (///.gensym "closure")) - _ (///.save! ["" (_.code @closure)] + _ (///.save! true ["" (_.code @closure)] (_.function @closure (|> (list.enumerate inits) (list@map (|>> product.left ..capture))) 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 41ebb4766..39c983dcc 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux @@ -25,7 +25,7 @@ initsO+ (monad.map @ generate initsS+) bodyO (///.with-anchor @loop (generate bodyS)) - _ (///.save! ["" (_.code @loop)] + _ (///.save! true ["" (_.code @loop)] (_.function @loop (|> initsS+ list.enumerate (list@map (|>> product.left (n/+ start) //case.register))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux index 6eeddc5ff..57f8e11df 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux @@ -358,5 +358,6 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! ["" ..prefix] ..runtime)] + [_ (///.save! true ["" ..prefix] + ..runtime)] (///.save-buffer! ..artifact)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux index e29b7622a..8d3a2138a 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux @@ -301,5 +301,6 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! true ["" ..prefix] ..runtime)] + [_ (///.save! true ["" ..prefix] + ..runtime)] (///.save-buffer! ..artifact)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux index 3aa95d673..dc908eae7 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux @@ -230,7 +230,7 @@ (#reference.Foreign register) (..capture register)))))] - _ (///.save! ["" (_.code @case)] + _ (///.save! true ["" (_.code @case)] (_.def @case (list& @init @dependencies+) ($_ _.then (_.set (list @cursor) (_.list (list @init))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux index a5f918dc1..2631f629c 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux @@ -39,14 +39,14 @@ (case inits #.Nil (do ////.monad - [_ (///.save! ["" function-name] + [_ (///.save! true ["" function-name] function-definition)] (wrap (_.apply/* (_.var function-name) inits))) _ (do ////.monad [@closure (:: @ map _.var (///.gensym "closure")) - _ (///.save! ["" (_.code @closure)] + _ (///.save! true ["" (_.code @closure)] (_.def @closure (|> (list.enumerate inits) (list@map (|>> product.left ..capture))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux index 12d83b756..9dae1b6dc 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux @@ -25,7 +25,7 @@ initsO+ (monad.map @ generate initsS+) bodyO (///.with-anchor @loop (generate bodyS)) - _ (///.save! ["" (_.code @loop)] + _ (///.save! true ["" (_.code @loop)] (_.def @loop (|> initsS+ list.enumerate (list@map (|>> product.left (n/+ start) //case.register))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux index 44b9d290f..b2135a625 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux @@ -364,6 +364,7 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! ["" ..prefix] (<| (_.comment "-*- coding: utf-8 -*-") - ..runtime))] + [_ (///.save! true ["" ..prefix] + (<| (_.comment "-*- coding: utf-8 -*-") + ..runtime))] (///.save-buffer! ..artifact)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux index 8858e9d4f..b63571ddc 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux @@ -290,5 +290,6 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! ["" ..prefix] ..runtime)] + [_ (///.save! true ["" ..prefix] + ..runtime)] (///.save-buffer! ..artifact)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux index bda2f7783..c22906d2d 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux @@ -319,5 +319,6 @@ (Operation Any) (///.with-buffer (do ////.monad - [_ (///.save! ["" ..prefix] ..runtime)] + [_ (///.save! true ["" ..prefix] + ..runtime)] (///.save-buffer! "")))) |