From 62b3abfcc014ca1c19d62aacdd497f6a250b372c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Jul 2021 03:12:17 -0400
Subject: Better syntax for "library/lux.^multi".

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

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

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index aa3239de2..bb102224d 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -1,7 +1,7 @@
 (.module:
   [library
    [lux (#- Module)
-    [type (#+ :share)]
+    [type (#+ :sharing)]
     ["@" target]
     ["." debug]
     [abstract
@@ -137,20 +137,20 @@
             (do (try.with promise.monad)
               [#let [[compilation_sources compilation_host_dependencies compilation_libraries compilation_target compilation_module] compilation]
                import (/import.import (get@ #platform.&file_system platform) compilation_libraries)
-               [state archive] (:share [<parameters>]
-                                       (Platform <parameters>)
-                                       platform
-                                       
-                                       (Promise (Try [(directive.State+ <parameters>)
-                                                      Archive]))
-                                       (:assume (platform.initialize static compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender
-                                                                     import compilation_sources)))
-               [archive state] (:share [<parameters>]
-                                       (Platform <parameters>)
-                                       platform
-                                       
-                                       (Promise (Try [Archive (directive.State+ <parameters>)]))
-                                       (:assume (platform.compile import static expander platform compilation [archive state])))
+               [state archive] (:sharing [<parameters>]
+                                         (Platform <parameters>)
+                                         platform
+                                         
+                                         (Promise (Try [(directive.State+ <parameters>)
+                                                        Archive]))
+                                         (:assume (platform.initialize static compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender
+                                                                       import compilation_sources)))
+               [archive state] (:sharing [<parameters>]
+                                         (Platform <parameters>)
+                                         platform
+                                         
+                                         (Promise (Try [Archive (directive.State+ <parameters>)]))
+                                         (:assume (platform.compile import static expander platform compilation [archive state])))
                _ (ioW.freeze (get@ #platform.&file_system platform) static archive)
                program_context (promise\wrap ($/program.context archive))
                host_dependencies (..load_host_dependencies (get@ #platform.&file_system platform) compilation_host_dependencies)
@@ -178,6 +178,6 @@
         ##     (do {! promise.monad}
         ##       [console (|> console.default
         ##                    promise.future
-        ##                    (\ ! map (|>> try.assume console.async)))]
+        ##                    (\ ! map (|>> try.assumed console.async)))]
         ##       (interpreter.run (try.with promise.monad) console platform interpretation generation_bundle)))
         ))))
-- 
cgit v1.2.3