diff options
| author | Eduardo Julian | 2022-06-15 23:13:48 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-15 23:13:48 -0400 |
| commit | f92c806ee8da63f04bbefbf558f6249bacdb47ea (patch) | |
| tree | f0ff0c93cfcf68bded11c9676b65232f30032628 /stdlib/source/program | |
| parent | 24986506e8beb5074f6aca048506389e90e196bd (diff) | |
Better syntax for the "sharing" and "by_example" macros.
Diffstat (limited to 'stdlib/source/program')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 4287a901f..5e71b0741 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -160,20 +160,18 @@ [.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])) - (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))) + (is (Platform <parameters>) + platform) + (is (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]))) + (is (Platform <parameters>) + platform) + (is (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) @@ -191,7 +189,7 @@ (<| (or_crash! "Export failed:") (do (try.with async.monad) [_ (export.export (the platform.#file_system platform) - export)] + export)] (in (debug.log! "Export complete!")))) {cli.#Interpretation interpretation} |