diff options
Diffstat (limited to '')
-rw-r--r-- | lux-jvm/source/program.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index ea4503d63..0fc2e7912 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -210,7 +210,7 @@ (def: (phase_wrapper archive) (-> Archive (generation.Operation _.Anchor _.Inst _.Definition phase.Wrapper)) (do phase.monad - [instanceG (function.function' {#.Some [0 (.nat -1)]} expression.translate archive [(list) 4 ..how_to_wrap_a_phase]) + [instanceG (function.function' {.#Some [0 (.nat -1)]} expression.translate archive [(list) 4 ..how_to_wrap_a_phase]) phase_wrapper (generation.evaluate! [0 (.nat -2)] instanceG)] (in (function (_ phase) (<| try.trusted @@ -234,14 +234,14 @@ [... host jvm/host.host [loader host] jvm.host] (in [loader - [#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.#&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]]))) (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 - #/static.host_module_extension ".jvm" - #/static.target (/cli.target service) - #/static.artifact_extension ".class"]] + (let [static [/static.#host @.jvm + /static.#host_module_extension ".jvm" + /static.#target (/cli.target service) + /static.#artifact_extension ".class"]] (exec (do async.monad [[loader platform] (async.future ..platform) - _ (/.compiler [#/static.host @.jvm - #/static.host_module_extension ".jvm" - #/static.target (/cli.target service) - #/static.artifact_extension ".class"] + _ (/.compiler [/static.#host @.jvm + /static.#host_module_extension ".jvm" + /static.#target (/cli.target service) + /static.#artifact_extension ".class"] ..expander (analysis.bundle loader) (io.io platform) |