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

1 files changed, 24 insertions, 24 deletions

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index c16f7c9ef..d20b00479 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -10,13 +10,13 @@
      ["[0]" exception {"+" [exception:]}]
      ["[0]" io {"+" [IO]}]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]]
     [data
      ["[0]" product]
-     ["[0]" text ("[1]\[0]" order)
+     ["[0]" text ("[1]#[0]" order)
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" functor mix)]
+      ["[0]" list ("[1]#[0]" functor mix)]
       ["[0]" dictionary {"+" [Dictionary]}]
       ["[0]" set]]]
     [math
@@ -49,8 +49,8 @@
   (-> Group Name Finder)
   (|>> dictionary.entries
        (list.one (function (_ [dependency package])
-                   (if (and (text\= group (value@ [///dependency.#artifact ///artifact.#group] dependency))
-                            (text\= name (value@ [///dependency.#artifact ///artifact.#name] dependency)))
+                   (if (and (text#= group (value@ [///dependency.#artifact ///artifact.#group] dependency))
+                            (text#= name (value@ [///dependency.#artifact ///artifact.#name] dependency)))
                      {.#Some dependency}
                      {.#None})))))
 
@@ -111,7 +111,7 @@
 
 (def: (path fs home dependency)
   (All (_ !) (-> (file.System !) Path Dependency Path))
-  (let [/ (\ fs separator)
+  (let [/ (# fs separator)
         artifact (value@ ///dependency.#artifact dependency)]
     (|> artifact
         (///local.uri (value@ ///artifact.#version artifact))
@@ -123,8 +123,8 @@
   (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
        (list.only (|>> (value@ ///dependency.#type)
-                       (text\= ///artifact/type.lux_library)))
-       (list\each (..path fs home))))
+                       (text#= ///artifact/type.lux_library)))
+       (list#each (..path fs home))))
 
 (def: version_separator
   ".")
@@ -140,10 +140,10 @@
            right (text.all_split_by ..version_separator right)]
       (case [left right]
         [{.#Item leftH leftT} {.#Item rightH rightT}]
-        (if (text\= leftH rightH)
+        (if (text#= leftH rightH)
           (recur leftT rightT)
           (or (n.< (text.size leftH) (text.size rightH))
-              (text\< leftH rightH)))
+              (text#< leftH rightH)))
 
         [{.#Item leftH leftT} {.#End}]
         false
@@ -158,16 +158,16 @@
   (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
        (list.only (|>> (value@ ///dependency.#type)
-                       (text\= ///artifact/type.lux_library)
+                       (text#= ///artifact/type.lux_library)
                        not))
-       (list\mix (function (_ dependency uniques)
+       (list#mix (function (_ dependency uniques)
                    (let [artifact (value@ ///dependency.#artifact dependency)
                          identity [(value@ ///artifact.#group artifact)
                                    (value@ ///artifact.#name artifact)]
                          version (value@ ///artifact.#version artifact)]
                      (case (dictionary.value identity uniques)
                        {.#Some [current_version current_path]}
-                       (if (\ version_order < version current_version)
+                       (if (# version_order < version current_version)
                          (dictionary.has identity [version dependency] uniques)
                          uniques)
                        
@@ -176,7 +176,7 @@
                  (: (Dictionary [Group Name] [Version Dependency])
                     (dictionary.empty (product.hash text.hash text.hash))))
        dictionary.values
-       (list\each (|>> product.right (..path fs home)))))
+       (list#each (|>> product.right (..path fs home)))))
 
 (def: (singular name)
   (-> Text Text (List Text))
@@ -184,7 +184,7 @@
 
 (def: (plural name)
   (-> Text (List Text) (List Text))
-  (|>> (list\each (|>> (list name))) list.together))
+  (|>> (list#each (|>> (list name))) list.together))
 
 (def: .public start "[BUILD STARTED]")
 (def: .public success "[BUILD ENDED]")
@@ -200,7 +200,7 @@
      (let [[read! write!] (: [(Async (Try Any))
                               (async.Resolver (Try Any))]
                              (async.async []))
-           _ (|> (\ process <capability> [])
+           _ (|> (# process <capability> [])
                  (async.upon! (function (recur ?line)
                                 (case ?line
                                   {try.#Failure error}
@@ -216,7 +216,7 @@
 
                                                    {try.#Success _}
                                                    (async.upon! recur
-                                                                (\ process <capability> []))))
+                                                                (# process <capability> []))))
                                                (console.write_line line console)))))
                  io.run!)]
        read!))]
@@ -265,15 +265,15 @@
     (let [target (value@ ///.#target profile)]
       (case (value@ ///.#program profile)
         {.#None}
-        (async\in (exception.except ..no_specified_program []))
+        (async#in (exception.except ..no_specified_program []))
 
         {.#Some program_module}
         (do async.monad
           [environment (program.environment async.monad program)
-           .let [home (\ program home)
-                 working_directory (\ program directory)]]
+           .let [home (# program home)
+                 working_directory (# program directory)]]
           (do ///action.monad
-            [[resolution compiler] (async\in (..compiler resolution (value@ ///.#compiler profile)))
+            [[resolution compiler] (async#in (..compiler resolution (value@ ///.#compiler profile)))
              .let [host_dependencies (..host_dependencies fs home resolution)
                    [[command compiler_params] output] (case compiler
                                                         {#JVM dependency}
@@ -292,7 +292,7 @@
                                                          [#Python ///.#java "program.py"]
                                                          [#Lua ///.#java "program.lua"]
                                                          [#Ruby ///.#java "program.rb"]))
-                   / (\ fs separator)
+                   / (# fs separator)
                    cache_directory (format working_directory / target)]
              _ (console.write_line ..start console)
              .let [full_parameters (list.together (list compiler_params
@@ -302,13 +302,13 @@
                                                         (..plural "--source" (set.list (value@ ///.#sources profile)))
                                                         (..singular "--target" cache_directory)
                                                         (..singular "--module" program_module)))]
-             process (\ shell execute [environment
+             process (# shell execute [environment
                                        working_directory
                                        command
                                        full_parameters])
              _ (..log_output! console process)
              _ (..log_error! console process)
-             exit (\ process await [])
+             exit (# process await [])
              _ (console.write_line (if (i.= shell.normal exit)
                                      ..success
                                      ..failure)