From 085c9a6ef151531cb01b842ed2f4366a49b78367 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 8 Sep 2021 23:14:59 -0400 Subject: De-bracing | part 2 --- lux-lua/source/program.lux | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'lux-lua/source') diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 2bba13d08..1ff6e2e57 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -339,13 +339,13 @@ #.None (exception.except ..cannot_apply_a_non_function (:as java/lang/Object macro)))))] - (for {@.old (as_is ) + (for [@.old (as_is ) @.jvm (as_is ) @.lua (def: (expander macro inputs lux) Expander - (#try.Success ((:as Macro' macro) inputs lux)))})) + (#try.Success ((:as Macro' macro) inputs lux)))])) (with_expansions [ (as_is (with_expansions [$var_args (_.var "...") $str_rel_to_abs (_.var "_utf8_str_rel_to_abs") @@ -586,7 +586,7 @@ (do try.monad [_ (run! content)] (run! (_.return (_.var (reference.artifact context))))))))]))))] - (for {@.old (as_is ) + (for [@.old (as_is ) @.jvm (as_is ) @.lua (as_is (ffi.import: (load [ffi.String] "try" ffi.Function)) (def: host @@ -625,7 +625,7 @@ (def: (re_load context custom content) (do try.monad [_ (run! content)] - (run! (_.return (_.var (reference.artifact context))))))))))))})) + (run! (_.return (_.var (reference.artifact context))))))))))))])) (with_expansions [ (as_is (exception: .public (invaid_phase_application [partial_application (List Any) arity Nat]) @@ -755,22 +755,22 @@ maybe.trusted (:as java/lang/Object) ..read)))))] - (for {@.old (as_is ) + (for [@.old (as_is ) @.jvm (as_is ) @.lua (def: (extender phase_wrapper handler) (-> phase.Wrapper Extender) - (:expected handler))})) + (:expected handler))])) (def: (phase_wrapper archive) (-> Archive (runtime.Operation phase.Wrapper)) (do phase.monad [] (in (:as phase.Wrapper - (for {@.old (..host_phase (list)) + (for [@.old (..host_phase (list)) @.jvm (..host_phase (list)) - @.lua (|>>)}))))) + @.lua (|>>)]))))) (with_expansions [ (def: platform (IO [Baggage (Platform [Register _.Label] _.Expression _.Statement)]) @@ -783,7 +783,7 @@ #platform.runtime runtime.generate #platform.phase_wrapper ..phase_wrapper #platform.write (|>> _.code (\ utf8.codec encoded))]])))] - (for {@.old + (for [@.old @.jvm @.lua (def: platform (IO (Platform [Register _.Label] _.Expression _.Statement)) @@ -794,7 +794,7 @@ #platform.phase lua.generate #platform.runtime runtime.generate #platform.phase_wrapper ..phase_wrapper - #platform.write (|>> _.code (\ utf8.codec encoded))])))})) + #platform.write (|>> _.code (\ utf8.codec encoded))])))])) (def: (program context program) (Program _.Expression _.Statement) @@ -810,18 +810,18 @@ (`` (program: [service /cli.service] (let [extension ".lua"] (do io.monad - [(~~ (for {@.old [baggage platform] + [(~~ (for [@.old [baggage platform] @.jvm [baggage platform] - @.lua platform})) + @.lua platform])) ..platform] (exec (do async.monad [_ (/.compiler [#/static.host @.lua #/static.host_module_extension extension #/static.target (/cli.target service) #/static.artifact_extension extension] - (for {@.old (..expander baggage) + (for [@.old (..expander baggage) @.jvm (..expander baggage) - @.lua ..expander}) + @.lua ..expander]) analysis.bundle (io.io platform) generation.bundle @@ -830,9 +830,9 @@ [(type [Register _.Label]) _.Expression _.Statement] - (for {@.old (..extender baggage) + (for [@.old (..extender baggage) @.jvm (..extender baggage) - @.lua ..extender}) + @.lua ..extender]) service [(packager.package (_.manual "") _.code -- cgit v1.2.3