From ac2c19d93407b00c89513f0f81e9cbbd1425bd9a Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 9 Mar 2022 03:35:16 -0400 Subject: Added an easy way to export Lux functionality to host programs (in JVM). --- stdlib/source/program/compositor.lux | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'stdlib/source/program') diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index c835643dd..082ad0db9 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -94,7 +94,7 @@ (in output))) (def: (package! fs host_dependencies [packager package] archive context) - (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive unit.ID (Async (Try Any))) + (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive (Maybe unit.ID) (Async (Try Any))) (case (packager host_dependencies archive context) {try.#Success content} (case content @@ -173,7 +173,6 @@ (Async (Try [Archive (directive.State+ )])) (:expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state]))) _ (cache.cache! (value@ platform.#&file_system platform) file_context archive) - program_context (async#in ($/program.context archive)) host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies) _ (..package! (for [@.old (file.async file.default) @.jvm (file.async file.default) @@ -183,7 +182,7 @@ host_dependencies packager,package archive - program_context)] + (try.maybe ($/program.context archive)))] (in (debug.log! "Compilation complete!")))) {cli.#Export export} -- cgit v1.2.3