aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2022-03-09 03:35:16 -0400
committerEduardo Julian2022-03-09 03:35:16 -0400
commitac2c19d93407b00c89513f0f81e9cbbd1425bd9a (patch)
tree1d46f3ed935ed84ab557c58f723ff0e3d24d6806 /stdlib/source/program
parentbf0562d72b7d42be2b378a7f312fe48ac1f4284c (diff)
Added an easy way to export Lux functionality to host programs (in JVM).
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux5
1 files changed, 2 insertions, 3 deletions
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+ <parameters>)]))
(: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}