From f92c806ee8da63f04bbefbf558f6249bacdb47ea Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 15 Jun 2022 23:13:48 -0400
Subject: Better syntax for the "sharing" and "by_example" macros.

---
 stdlib/source/program/compositor.lux | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program')

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