diff options
Diffstat (limited to 'lux-jvm')
| -rw-r--r-- | lux-jvm/source/program.lux | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index a6c07bbd4..a597ce394 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -17,12 +17,12 @@ [collection [array (.only Array)]]] [meta - ["@" target (.only) - ["[0]" jvm - [bytecode (.only Bytecode)] - ["[1]/[0]" type - ["[1]/[0]" box]]]] - [compiler (.only) + [compiler + ["@" target (.only) + ["[0]" jvm + [bytecode (.only Bytecode)] + ["[1]/[0]" type + ["[1]/[0]" box]]]] [default ["[0]" platform (.only Platform)]] [meta @@ -157,16 +157,12 @@ (-> Any (Async Any)) (async.future (of world/environment.default exit +0))) -(def lux_compiler - (-> Any platform.Custom) - (|>> as_expected)) - (def _ (program [service cli.service] (let [context (context.jvm (cli.target service))] (exec (do async.monad [[loader host platform] (async.future ..platform) - _ (compositor.compiler ..lux_compiler + _ (compositor.compiler (|>> (as platform.Custom)) context ..expander (analysis.bundle loader host) |