aboutsummaryrefslogtreecommitdiff
path: root/lux-lua
diff options
context:
space:
mode:
Diffstat (limited to 'lux-lua')
-rw-r--r--lux-lua/source/program.lux32
1 files changed, 16 insertions, 16 deletions
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 <jvm>)
+ (for [@.old (as_is <jvm>)
@.jvm (as_is <jvm>)
@.lua
(def: (expander macro inputs lux)
Expander
- (#try.Success ((:as Macro' macro) inputs lux)))}))
+ (#try.Success ((:as Macro' macro) inputs lux)))]))
(with_expansions [<jvm> (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 <jvm>)
+ (for [@.old (as_is <jvm>)
@.jvm (as_is <jvm>)
@.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 [<jvm> (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 <jvm>)
+ (for [@.old (as_is <jvm>)
@.jvm (as_is <jvm>)
@.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 [<jvm> (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 <jvm>
+ (for [@.old <jvm>
@.jvm <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