diff options
| author | Eduardo Julian | 2023-01-08 02:13:36 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2023-01-08 02:13:36 -0400 |
| commit | 617069b3986e9271d6e73191b899aa914e430dd6 (patch) | |
| tree | 7a4255a4eb1460a58b64161a8200486a756265bc /lux-jvm/source | |
| parent | ae2d5697d93a45dcbff768c32c4dc8fb291096cd (diff) | |
Moved compiler target machinery under meta/compiler.
Diffstat (limited to 'lux-jvm/source')
| -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) |