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

8 files changed, 65 insertions, 65 deletions

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 2160398eb..863251305 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -29,11 +29,11 @@
   (-> (file.System Async) file.Path (Async (List file.Path)))
   (let [! async.monad]
     (|> path
-        (\ fs sub_directories)
-        (\ ! each (|>> (try.else (list))
+        (# fs sub_directories)
+        (# ! each (|>> (try.else (list))
                        (monad.each ! (targets fs))))
-        (\ ! conjoint)
-        (\ ! each (|>> list.together (list& path))))))
+        (# ! conjoint)
+        (# ! each (|>> list.together (list& path))))))
 
 (def: .public delay
   Nat
@@ -56,14 +56,14 @@
                        (value@ ///.#sources)
                        set.list
                        (monad.each ! (..targets fs))
-                       (\ ! each list.together))]
+                       (# ! each list.together))]
           (do [! ///action.monad]
-            [_ (monad.each ! (\ watcher start watch.modification) targets)
+            [_ (monad.each ! (# watcher start watch.modification) targets)
              _ <call>]
             (loop [_ []]
               (do !
                 [_ (..pause delay)
-                 events (\ watcher poll [])]
+                 events (# watcher poll [])]
                 (case events
                   {.#Item _}
                   (do !
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)
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index d175ae291..bbdec8763 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -22,9 +22,9 @@
   (-> (file.System Async) Path (Async (Try Any)))
   (let [! ///action.monad]
     (|> root
-        (\ fs directory_files)
-        (\ ! each (monad.each ! (\ fs delete)))
-        (\ ! conjoint))))
+        (# fs directory_files)
+        (# ! each (monad.each ! (# fs delete)))
+        (# ! conjoint))))
 
 (def: .public success
   (-> ///.Target Text)
@@ -34,16 +34,16 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do [! async.monad]
     [.let [target (value@ ///.#target profile)]
-     ? (\ fs directory? target)
+     ? (# fs directory? target)
      _ (let [! ///action.monad]
          (if ?
            (loop [root target]
              (do !
                [_ (..clean_files! fs root)
                 _ (|> root
-                      (\ fs sub_directories)
-                      (\ ! each (monad.each ! recur))
-                      (\ ! conjoint))]
-               (\ fs delete root)))
-           (\ ! in [])))]
+                      (# fs sub_directories)
+                      (# ! each (monad.each ! recur))
+                      (# ! conjoint))]
+               (# fs delete root)))
+           (# ! in [])))]
     (console.write_line (..success target) console)))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 7210e9a30..d6d783113 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -7,7 +7,7 @@
      [pipe {"+" [do>]}]
      ["[0]" try {"+" [Try]}]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]
      ["<>" parser
       ["<[0]>" xml]]]
     [data
@@ -63,14 +63,14 @@
                  (value@ /.#sources)
                  set.list
                  (export.library fs)
-                 (\ ! each (binary.result tar.writer)))
-     pom (\ async.monad in (///pom.write profile))
+                 (# ! each (binary.result tar.writer)))
+     pom (# async.monad in (///pom.write profile))
      _ (///dependency/deployment.one
         repository
         [artifact ///artifact/type.lux_library]
         (let [pom_data (|> pom
-                           (\ xml.codec encoded)
-                           (\ utf8.codec encoded))]
+                           (# xml.codec encoded)
+                           (# utf8.codec encoded))]
           [///package.#origin {///repository/origin.#Remote ""}
            ///package.#library [library
                                 (///dependency/status.verified library)]
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index ed636efeb..50df346db 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -10,7 +10,7 @@
     [data
      [collection
       ["[0]" set {"+" [Set]}]
-      ["[0]" list ("[1]\[0]" mix)]
+      ["[0]" list ("[1]#[0]" mix)]
       ["[0]" dictionary]]
      [text
       ["%" format]]]
@@ -55,23 +55,23 @@
                                                                                  cache)]
     (do ///action.monad
       [cached (|> (dictionary.keys cache)
-                  (list\mix dictionary.lacks resolution)
+                  (list#mix dictionary.lacks resolution)
                   (///dependency/deployment.all local))
        _ (console.write_line (exception.report
                               ["Local successes" (|> local_successes
-                                                     (list.sorted (\ ///dependency.order <))
+                                                     (list.sorted (# ///dependency.order <))
                                                      (exception.listing ..format))]
                               ["Local failures" (|> local_failures
-                                                    (list.sorted (\ ///dependency.order <))
+                                                    (list.sorted (# ///dependency.order <))
                                                     (exception.listing ..format))]
                               ["Remote successes" (|> remote_successes
                                                       (set.of_list ///dependency.hash)
                                                       (set.difference (set.of_list ///dependency.hash local_successes))
                                                       set.list
-                                                      (list.sorted (\ ///dependency.order <))
+                                                      (list.sorted (# ///dependency.order <))
                                                       (exception.listing ..format))]
                               ["Remote failures" (|> remote_failures
-                                                     (list.sorted (\ ///dependency.order <))
+                                                     (list.sorted (# ///dependency.order <))
                                                      (exception.listing ..format))])
                              console)]
       (in resolution))))
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 4b413faa5..d89773504 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -60,12 +60,12 @@
                    (export.library fs))
        pom (|> profile
                ///pom.write
-               (\ async.monad in))
+               (# async.monad in))
        _ (///dependency/deployment.one repository
                                        [identity ///artifact/type.lux_library]
                                        (let [pom_data (|> pom
-                                                          (\ xml.codec encoded)
-                                                          (\ utf8.codec encoded))]
+                                                          (# xml.codec encoded)
+                                                          (# utf8.codec encoded))]
                                          [///package.#origin {///origin.#Local ""}
                                           ///package.#library (let [library (binary.result tar.writer package)]
                                                                 [library (///dependency/status.verified library)])
diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index b176232aa..f4eee1c2b 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -4,9 +4,9 @@
     [abstract
      [monad {"+" [do]}]]
     [control
-     ["[0]" try ("[1]\[0]" functor)]
+     ["[0]" try ("[1]#[0]" functor)]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]]
     [data
      [text
       ["%" format {"+" [format]}]
@@ -29,8 +29,8 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do ///action.monad
     [content (|> (///pom.write profile)
-                 (try\each (|>> (\ xml.codec encoded)
-                                (\ utf8.codec encoded)))
-                 async\in)
-     _ (\ fs write content ///pom.file)]
+                 (try#each (|>> (# xml.codec encoded)
+                                (# utf8.codec encoded)))
+                 async#in)
+     _ (# fs write content ///pom.file)]
     (console.write_line ..success console)))
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index 04f4e8e27..d017dd228 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -5,7 +5,7 @@
      [monad {"+" [do]}]]
     [control
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]]
     [math
      [number
       ["i" int]]]
@@ -32,9 +32,9 @@
   (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))
   (do async.monad
     [environment (program.environment async.monad program)
-     .let [working_directory (\ program directory)]]
+     .let [working_directory (# program directory)]]
     (do [! ///action.monad]
-      [.let [home (\ program home)]
+      [.let [home (# program home)]
        [build_exit compiler program] (//build.do! console program fs shell resolution
                                                   (with@ ///.#program (value@ ///.#test profile) profile))]
       (if (i.= shell.normal build_exit)
@@ -55,13 +55,13 @@
                                                    [//build.#Python ///.#python]
                                                    [//build.#Lua ///.#lua]
                                                    [//build.#Ruby ///.#ruby]))]
-           process (\ shell execute [environment
+           process (# shell execute [environment
                                      working_directory
                                      test_command
                                      test_parameters])
            _ (//build.log_output! console process)
            _ (//build.log_error! console process)
-           exit (\ process await [])
+           exit (# process await [])
            _ (console.write_line (if (i.= shell.normal exit)
                                    ..success
                                    ..failure)