aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-03-16 08:37:23 -0400
committerEduardo Julian2022-03-16 08:37:23 -0400
commitbf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch)
tree49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /stdlib/source/program/compositor.lux
parentd710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff)
De-sigil-ification: prefix :
Diffstat (limited to 'stdlib/source/program/compositor.lux')
-rw-r--r--stdlib/source/program/compositor.lux36
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)