From 617069b3986e9271d6e73191b899aa914e430dd6 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 8 Jan 2023 02:13:36 -0400 Subject: Moved compiler target machinery under meta/compiler. --- lux-jvm/source/program.lux | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) (limited to 'lux-jvm') 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) -- cgit v1.2.3