diff options
Diffstat (limited to 'lux-jvm/source/program.lux')
| -rw-r--r-- | lux-jvm/source/program.lux | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index a597ce394..f13547232 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -120,7 +120,7 @@ platform.#host host platform.#phase /.translate - platform.#runtime /runtime.translate + platform.#runtime /runtime.translation platform.#phase_wrapper ..phase_wrapper platform.#write product.right]]))) @@ -160,20 +160,21 @@ (def _ (program [service cli.service] (let [context (context.jvm (cli.target service))] - (exec (do async.monad - [[loader host platform] (async.future ..platform) - _ (compositor.compiler (|>> (as platform.Custom)) - context - ..expander - (analysis.bundle loader host) - (io.io platform) - translation.bundle - (declaration.bundle loader ..extender) - (/program.program /runtime.class_name) - /reference.constant - ..extender - service - [(packager.package context) - "program.jar"])] - (..declare_success! [])) + (exec + (do async.monad + [[loader host platform] (async.future ..platform) + _ (compositor.compiler (|>> (as platform.Custom)) + context + ..expander + (analysis.bundle loader host) + (io.io platform) + translation.bundle + (declaration.bundle loader ..extender) + (/program.program /runtime.class_name) + /reference.constant + ..extender + service + [(packager.package context) + "program.jar"])] + (..declare_success! [])) (io.io []))))) |