aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/program.lux
diff options
context:
space:
mode:
Diffstat (limited to 'lux-jvm/source/program.lux')
-rw-r--r--lux-jvm/source/program.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index 3a2e3a55b..304e2195f 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -234,14 +234,14 @@
[... host jvm/host.host
[loader host] jvm.host]
(in [loader
- {#platform.&file_system (file.async file.default)
+ [#platform.&file_system (file.async file.default)
#platform.host host
... #platform.phase jvm.generate
#platform.phase expression.translate
... #platform.runtime runtime.generate
#platform.runtime runtime.translate
#platform.phase_wrapper ..phase_wrapper
- #platform.write product.right}])))
+ #platform.write product.right]])))
(def: (extender phase_wrapper)
(-> phase.Wrapper Extender)
@@ -277,16 +277,16 @@
(async.future (\ world/program.default exit +0)))
(program: [service /cli.service]
- (let [static {#/static.host @.jvm
+ (let [static [#/static.host @.jvm
#/static.host_module_extension ".jvm"
#/static.target (/cli.target service)
- #/static.artifact_extension ".class"}]
+ #/static.artifact_extension ".class"]]
(exec (do async.monad
[[loader platform] (async.future ..platform)
- _ (/.compiler {#/static.host @.jvm
+ _ (/.compiler [#/static.host @.jvm
#/static.host_module_extension ".jvm"
#/static.target (/cli.target service)
- #/static.artifact_extension ".class"}
+ #/static.artifact_extension ".class"]
..expander
(analysis.bundle loader)
(io.io platform)