From bf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Mar 2022 08:37:23 -0400
Subject: De-sigil-ification: prefix :

---
 stdlib/source/program/compositor.lux | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

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)
-- 
cgit v1.2.3