From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

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

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

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 783502215..840b06e2d 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -10,7 +10,7 @@
      ["[0]" io {"+" [IO io]}]
      ["[0]" try {"+" [Try]}]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]]
     [data
      [binary {"+" [Binary]}]
      ["[0]" product]
@@ -67,7 +67,7 @@
       (exec (debug.log! (format text.new_line
                                 failure_description text.new_line
                                 error text.new_line))
-        (io.run! (\ world/program.default exit +1)))
+        (io.run! (# world/program.default exit +1)))
 
       {try.#Success output}
       (in output))))
@@ -88,10 +88,10 @@
   (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any)))
   (case (packager host_dependencies archive context)
     {try.#Success content}
-    (\ fs write content package)
+    (# fs write content package)
     
     {try.#Failure error}
-    (\ async.monad in {try.#Failure error})))
+    (# async.monad in {try.#Failure error})))
 
 (def: (load_host_dependencies fs host_dependencies)
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
@@ -106,7 +106,7 @@
 
         {.#Item head tail}
         (do !
-          [content (\ fs read head)]
+          [content (# fs read head)]
           (recur tail
                  (dictionary.has head content output)))))))
 
@@ -153,7 +153,7 @@
                                          (Async (Try [Archive (directive.State+ <parameters>)]))
                                          (:expected (platform.compile phase_wrapper import static expander platform compilation [archive state])))
                _ (ioW.freeze (value@ platform.#&file_system platform) static archive)
-               program_context (async\in ($/program.context archive))
+               program_context (async#in ($/program.context archive))
                host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies)
                _ (..package! (for [@.old (file.async file.default)
                                    @.jvm (file.async file.default)
@@ -179,6 +179,6 @@
         ...     (do [! async.monad]
         ...       [console (|> console.default
         ...                    async.future
-        ...                    (\ ! each (|>> try.trusted console.async)))]
+        ...                    (# ! each (|>> try.trusted console.async)))]
         ...       (interpreter.run! (try.with async.monad) console platform interpretation generation_bundle)))
         ))))
-- 
cgit v1.2.3