diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 13b2e434e..e67c28d0d 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -1,7 +1,7 @@ (.using [library [lux {"-" Module} - [type {"+" :sharing}] + [type {"+" sharing}] ["@" target] ["[0]" debug] [abstract @@ -117,8 +117,8 @@ (do [! (try.with async.monad)] [] (loop [pending host_dependencies - output (: (Dictionary file.Path Binary) - (dictionary.empty text.hash))] + output (is (Dictionary file.Path Binary) + (dictionary.empty text.hash))] (case pending {.#End} (in output) @@ -157,21 +157,21 @@ (do (try.with async.monad) [.let [[compilation_host_dependencies compilation_libraries compilation_compilers compilation_sources compilation_target compilation_module compilation_configuration] compilation] import (import.import (the platform.#&file_system platform) compilation_libraries) - [state archive phase_wrapper] (:sharing [<parameters>] - (Platform <parameters>) - platform - - (Async (Try [(directive.State+ <parameters>) - Archive - phase.Wrapper])) - (:expected (platform.initialize file_context compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender - import compilation_sources compilation_configuration))) - [archive state] (:sharing [<parameters>] - (Platform <parameters>) - platform - - (Async (Try [Archive (directive.State+ <parameters>)])) - (:expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state]))) + [state archive phase_wrapper] (sharing [<parameters>] + (Platform <parameters>) + platform + + (Async (Try [(directive.State+ <parameters>) + Archive + phase.Wrapper])) + (as_expected (platform.initialize file_context compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender + import compilation_sources compilation_configuration))) + [archive state] (sharing [<parameters>] + (Platform <parameters>) + platform + + (Async (Try [Archive (directive.State+ <parameters>)])) + (as_expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state]))) _ (cache.cache! (the platform.#&file_system platform) file_context archive) host_dependencies (..load_host_dependencies (the platform.#&file_system platform) compilation_host_dependencies) _ (..package! (for @.old (file.async file.default) |