Re-named \ => # && \\ => ##

3 files changed, 20 insertions, 20 deletions

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)))
         ))))
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 90234875a..117c52251 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -48,7 +48,7 @@
                     (function (_ [path source_code])
                       (do try.monad
                         [path (|> path
-                                  (text.replaced (\ fs separator) .module_separator)
+                                  (text.replaced (# fs separator) .module_separator)
                                   tar.path)
                          source_code (tar.content source_code)]
                         (in {tar.#Normal [path
@@ -59,14 +59,14 @@
                                               tar.read_by_other)
                                           ..no_ownership
                                           source_code]}))))
-        (\ try.monad each row.of_list)
-        (\ async.monad in))))
+        (# try.monad each row.of_list)
+        (# async.monad in))))
 
 (def: .public (export fs [sources target])
   (-> (file.System Async) Export (Async (Try Any)))
   (do [! (try.with async.monad)]
-    [tar (\ ! each (binary.result tar.writer)
+    [tar (# ! each (binary.result tar.writer)
             (..library fs sources))]
     (|> ..file
-        (format target (\ fs separator))
-        (\ fs write tar))))
+        (format target (# fs separator))
+        (# fs write tar))))
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 9b84e22c6..0e41d66a9 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -7,7 +7,7 @@
      ["[0]" try {"+" [Try]}]
      ["[0]" exception {"+" [exception:]}]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]
      ["<>" parser
       ["<[0]>" binary]]]
     [data
@@ -47,11 +47,11 @@
   (-> (file.System Async) Library Import (Action Import))
   (let [! async.monad]
     (|> library
-        (\ system read)
-        (\ ! each (let [! try.monad]
-                    (|>> (\ ! each (<binary>.result tar.parser))
-                         (\ ! conjoint)
-                         (\ ! each (|>> row.list
+        (# system read)
+        (# ! each (let [! try.monad]
+                    (|>> (# ! each (<binary>.result tar.parser))
+                         (# ! conjoint)
+                         (# ! each (|>> row.list
                                         (monad.mix ! (function (_ entry import)
                                                        (case entry
                                                          {tar.#Normal [path instant mode ownership content]}
@@ -66,7 +66,7 @@
                                                          _
                                                          (exception.except ..useless_tar_entry [])))
                                                    import)))
-                         (\ ! conjoint)))))))
+                         (# ! conjoint)))))))
 
 (def: .public (import system libraries)
   (-> (file.System Async) (List Library) (Action Import))