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

9 files changed, 118 insertions, 118 deletions

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 307946212..eab61d51f 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -57,8 +57,8 @@
          (if (n.= expected_runs actual_runs)
            (in {try.#Failure end_signal})
            (do (try.with !)
-             [_ (\ fs write (\ utf8.codec encoded (%.nat actual_runs)) dummy_file)
-              _ (\ fs modify
+             [_ (# fs write (# utf8.codec encoded (%.nat actual_runs)) dummy_file)
+              _ (# fs modify
                    (|> actual_runs .int instant.of_millis)
                    dummy_file)]
              (in [shell.normal []])))))]))
@@ -68,14 +68,14 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [end_signal (random.ascii/alpha 5)
-         .let [/ (\ file.default separator)
+         .let [/ (# file.default separator)
                [fs watcher] (watch.mock /)]
          
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          source (random.ascii/alpha 5)
          .let [empty_profile (: Profile
-                                (\ ///.monoid identity))
+                                (# ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (with@ ///.#target target))
                with_program (: (-> Profile Profile)
@@ -89,18 +89,18 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          
-         expected_runs (\ ! each (|>> (n.% 10) (n.max 2)) random.nat)
-         dummy_path (\ ! each (|>> (format source /)) (random.ascii/alpha 5))
+         expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat)
+         dummy_path (# ! each (|>> (format source /)) (random.ascii/alpha 5))
          [compiler resolution] $build.resolution]
         ($_ _.and
             (_.cover [/.delay]
                      (n.> 0 /.delay))
             (in (do async.monad
                   [verdict (do ///action.monad
-                             [_ (\ fs make_directory source)
-                              _ (\ fs write (binary.empty 0) dummy_path)
+                             [_ (# fs make_directory source)
+                              _ (# fs write (binary.empty 0) dummy_path)
                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
-                              _ (\ watcher poll [])]
+                              _ (# watcher poll [])]
                              (do [! async.monad]
                                [no_dangling_process! (|> profile
                                                          (with@ ///.#compiler compiler)
@@ -110,7 +110,7 @@
                                                           fs
                                                           (shell.async ($build.good_shell []))
                                                           resolution)
-                                                         (\ ! each (|>> (case> {try.#Failure error}
+                                                         (# ! each (|>> (case> {try.#Failure error}
                                                                                (same? end_signal error)
 
                                                                                {try.#Success _}
@@ -118,7 +118,7 @@
                                 correct_number_of_runs! (|> @runs
                                                             atom.read!
                                                             async.future
-                                                            (\ ! each (n.= expected_runs)))]
+                                                            (# ! each (n.= expected_runs)))]
                                (in {try.#Success (and correct_number_of_runs!
                                                       no_dangling_process!)})))]
                   (_.cover' [/.do!]
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index ee69f1010..722478571 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -14,7 +14,7 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)]
      [collection
       ["[0]" dictionary]]]
     [math
@@ -142,14 +142,14 @@
       (do [! random.monad]
         [last_read (random.ascii/alpha 5)
          last_error (random.ascii/alpha 5)
-         .let [fs (file.mock (\ file.default separator))
+         .let [fs (file.mock (# file.default separator))
                shell (shell.async (..good_shell []))]
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          .let [empty_profile (: Profile
-                                (\ ///.monoid identity))
+                                (# ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (with@ ///.#target target))
                with_program (: (-> Profile Profile)
@@ -186,10 +186,10 @@
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs shell resolution
                                          (with@ ///.#compiler compiler profile))
-                                start (\ console read_line [])
-                                end (\ console read_line [])]
-                               (in (and (text\= /.start start)
-                                        (text\= /.success end))))]
+                                start (# console read_line [])
+                                end (# console read_line [])]
+                               (in (and (text#= /.start start)
+                                        (text#= /.success end))))]
                     (_.cover' [/.do!
                                /.lux_group
                                /.jvm_compiler_name
@@ -208,10 +208,10 @@
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async (..bad_shell [])) resolution
                                          (with@ ///.#compiler compiler profile))
-                                start (\ console read_line [])
-                                end (\ console read_line [])]
-                               (in (and (text\= /.start start)
-                                        (text\= /.failure end))))]
+                                start (# console read_line [])
+                                end (# console read_line [])]
+                               (in (and (text#= /.start start)
+                                        (text#= /.failure end))))]
                     (_.cover' [/.failure]
                               (try.else false verdict)))))
             (do !
@@ -228,19 +228,19 @@
                                      [verdict (do ///action.monad
                                                 [process (shell [environment.empty working_directory "" (list "")])
                                                  _ (<log!> console process)
-                                                 actual/0 (\ console read_line [])
-                                                 actual/1 (\ console read_line [])
-                                                 actual/2 (\ console read_line [])
-                                                 end! (|> (\ console read_line [])
-                                                          (\ ! each (|>> (case> {try.#Failure error}
+                                                 actual/0 (# console read_line [])
+                                                 actual/1 (# console read_line [])
+                                                 actual/2 (# console read_line [])
+                                                 end! (|> (# console read_line [])
+                                                          (# ! each (|>> (case> {try.#Failure error}
                                                                                 true
                                                                                 
                                                                                 {try.#Success _}
                                                                                 false)
                                                                          {try.#Success})))]
-                                                (in (and (text\= expected/0 actual/0)
-                                                         (text\= expected/1 actual/1)
-                                                         (text\= expected/2 actual/2)
+                                                (in (and (text#= expected/0 actual/0)
+                                                         (text#= expected/1 actual/1)
+                                                         (text#= expected/2 actual/2)
                                                          end!)))]
                                      (_.cover' [<log!>]
                                                (try.else false verdict)))))]
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 7d3e57392..8a9a69e7c 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -11,10 +11,10 @@
     [data
      [binary {"+" [Binary]}]
      ["[0]" product]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" functor)]
+      ["[0]" list ("[1]#[0]" functor)]
       ["[0]" set]]]
     [math
      ["[0]" random {"+" [Random]}]
@@ -43,15 +43,15 @@
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do [! random.monad]
-    [count (\ ! each (n.% 10) random.nat)
+    [count (# ! each (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
-    (in (list.zipped/2 (list\each (|>> (format prefix)) (set.list names))
+    (in (list.zipped/2 (list#each (|>> (format prefix)) (set.list names))
                        contents))))
 
 (def: (create_file! fs [path content])
   (-> (file.System Async) [Path Binary] (Async (Try Any)))
-  (\ fs write content path))
+  (# fs write content path))
 
 (def: (create_directory! fs path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
@@ -63,11 +63,11 @@
 
 (def: (directory_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs directory?) (try.lifted async.monad)))
+  (|>> (# fs directory?) (try.lifted async.monad)))
 
 (def: (file_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs file?) (try.lifted async.monad)))
+  (|>> (# fs file?) (try.lifted async.monad)))
 
 (def: (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
@@ -75,7 +75,7 @@
     [directory_exists? (..directory_exists? fs directory_path)
      files_exist? (: (Action (List Bit))
                      (|> files
-                         (list\each product.left)
+                         (list#each product.left)
                          (monad.each ///action.monad (..file_exists? fs))))]
     (in (and directory_exists?
              (list.every? (|>>) files_exist?)))))
@@ -87,8 +87,8 @@
         [context ..node_name
          target ..node_name
          sub ..node_name
-         .let [fs (file.mock (\ file.default separator))
-               / (\ fs separator)
+         .let [fs (file.mock (# file.default separator))
+               / (# fs separator)
                target_path (format context / target)
                sub_path (format target_path / sub)]
          direct_files (..files (format target_path /))
@@ -107,13 +107,13 @@
                           context_exists!/post (..directory_exists? fs context)
                           target_exists!/post (..assets_exist? fs target_path direct_files)
                           sub_exists!/post (..assets_exist? fs sub_path sub_files)
-                          logging (\ console read_line [])]
+                          logging (# console read_line [])]
                          (in (and (and context_exists!/pre
                                        context_exists!/post)
                                   (and target_exists!/pre
                                        (not target_exists!/post))
                                   (and sub_exists!/pre
                                        (not sub_exists!/post))
-                                  (text\= (/.success target_path) logging))))]
+                                  (text#= (/.success target_path) logging))))]
               (_.cover' [/.do! /.success]
                         (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 0b0f8558b..68e4de22c 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -12,8 +12,8 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" binary ("[1]\[0]" equivalence)]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" binary ("[1]#[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]
       [encoding
        ["[0]" utf8]]]
@@ -57,7 +57,7 @@
     [.let [console ($version.echo "")]
      _ ($install.make_sources! fs (value@ ///.#sources profile))
      _ (/.do! console repository fs artifact profile)]
-    (\ console read_line [])))
+    (# console read_line [])))
 
 (def: .public test
   Test
@@ -75,7 +75,7 @@
          working_directory (random.ascii/alpha 5)
          .let [repository (///repository.mock $repository.mock
                                               $repository.empty)
-               fs (file.mock (\ file.default separator))
+               fs (file.mock (# file.default separator))
                program (program.async (program.mock environment.empty home working_directory))]]
         (in (do [! async.monad]
               [verdict (do [! ///action.monad]
@@ -84,39 +84,39 @@
                                                (value@ ///.#sources)
                                                set.list
                                                (export.library fs)
-                                               (\ ! each (format.result tar.writer)))
+                                               (# ! each (format.result tar.writer)))
 
-                          actual_pom (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.pom))
-                          actual_library (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
-                          actual_sha-1 (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
-                          actual_sha-1 (\ async.monad in
+                          actual_pom (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.pom))
+                          actual_library (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
+                          actual_sha-1 (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
+                          actual_sha-1 (# async.monad in
                                           (do try.monad
-                                            [actual_sha-1 (\ utf8.codec decoded actual_sha-1)]
-                                            (\ ///hash.sha-1_codec decoded actual_sha-1)))
-                          actual_md5 (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
-                          actual_md5 (\ async.monad in
+                                            [actual_sha-1 (# utf8.codec decoded actual_sha-1)]
+                                            (# ///hash.sha-1_codec decoded actual_sha-1)))
+                          actual_md5 (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
+                          actual_md5 (# async.monad in
                                         (do try.monad
-                                          [actual_md5 (\ utf8.codec decoded actual_md5)]
-                                          (\ ///hash.md5_codec decoded actual_md5)))
+                                          [actual_md5 (# utf8.codec decoded actual_md5)]
+                                          (# ///hash.md5_codec decoded actual_md5)))
 
                           .let [succeeded!
-                                (text\= /.success logging)
+                                (text#= /.success logging)
 
                                 deployed_library!
-                                (binary\= expected_library
+                                (binary#= expected_library
                                           actual_library)
 
                                 deployed_pom!
-                                (binary\= (|> expected_pom (\ xml.codec encoded) (\ utf8.codec encoded))
+                                (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded))
                                           actual_pom)
 
                                 deployed_sha-1!
-                                (\ ///hash.equivalence =
+                                (# ///hash.equivalence =
                                    (///hash.sha-1 expected_library)
                                    actual_sha-1)
 
                                 deployed_md5!
-                                (\ ///hash.equivalence =
+                                (# ///hash.equivalence =
                                    (///hash.md5 expected_library)
                                    actual_md5)]]
                          (in (and succeeded!
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 037a8e119..812f4b745 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -12,7 +12,7 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]
       [encoding
        ["[0]" utf8]]]
@@ -61,7 +61,7 @@
 
          dependee_artifact $///artifact.random
          depender_artifact (random.only (predicate.complement
-                                         (\ ///artifact.equivalence = dependee_artifact))
+                                         (# ///artifact.equivalence = dependee_artifact))
                                         $///artifact.random)
 
          [_ dependee_package] $///package.random
@@ -72,11 +72,11 @@
                depender [///dependency.#artifact depender_artifact
                          ///dependency.#type ///artifact/type.lux_library]
 
-               dependee_pom (|> (\ ///.monoid identity)
+               dependee_pom (|> (# ///.monoid identity)
                                 (with@ ///.#identity {.#Some dependee_artifact})
                                 ///pom.write
                                 try.trusted)
-               depender_pom (|> (\ ///.monoid identity)
+               depender_pom (|> (# ///.monoid identity)
                                 (with@ ///.#identity {.#Some depender_artifact})
                                 (with@ ///.#dependencies (set.of_list ///dependency.hash (list dependee)))
                                 ///pom.write
@@ -85,15 +85,15 @@
                dependee_package (|> dependee_package
                                     (with@ ///package.#origin {///repository/origin.#Remote ""})
                                     (with@ ///package.#pom [dependee_pom
-                                                            (|> dependee_pom (\ xml.codec encoded) (\ utf8.codec encoded))
+                                                            (|> dependee_pom (# xml.codec encoded) (# utf8.codec encoded))
                                                             {///dependency/status.#Unverified}]))
                depender_package (|> depender_package
                                     (with@ ///package.#origin {///repository/origin.#Remote ""})
                                     (with@ ///package.#pom [depender_pom
-                                                            (|> depender_pom (\ xml.codec encoded) (\ utf8.codec encoded))
+                                                            (|> depender_pom (# xml.codec encoded) (# utf8.codec encoded))
                                                             {///dependency/status.#Unverified}]))
 
-               fs (file.mock (\ file.default separator))
+               fs (file.mock (# file.default separator))
                program (program.async (program.mock environment.empty home working_directory))]]
         (in (do async.monad
               [verdict (do ///action.monad
@@ -102,7 +102,7 @@
                           pre (|> ///dependency/resolution.empty
                                   (dictionary.has dependee dependee_package)
                                   (///dependency/deployment.all local))
-                          post (|> (\ ///.monoid identity)
+                          post (|> (# ///.monoid identity)
                                    (with@ ///.#dependencies (set.of_list ///dependency.hash (list dependee depender)))
                                    (/.do! console local
                                           (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 0461029fc..ba6f599fb 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -5,7 +5,7 @@
     [abstract
      ["[0]" monad {"+" [do]}]]
     [control
-     ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]
+     ["[0]" try {"+" [Try]} ("[1]#[0]" functor)]
      ["[0]" exception]
      [concurrency
       ["[0]" async {"+" [Async]}]]
@@ -13,7 +13,7 @@
       ["[0]" environment]]]
     [data
      ["[0]" binary]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]]
      [collection
       ["[0]" set {"+" [Set]}]]]
@@ -41,7 +41,7 @@
 
 (def: .public (make_sources! fs sources)
   (-> (file.System Async) (Set file.Path) (Action (List Any)))
-  (let [/ (\ fs separator)
+  (let [/ (# fs separator)
         ! ///action.monad]
     (|> sources
         set.list
@@ -58,18 +58,18 @@
     [.let [console ($version.echo "")]
      _ (..make_sources! fs (value@ ///.#sources sample))
      _ (/.do! console fs (///repository/local.repository program fs) sample)]
-    (\ console read_line [])))
+    (# console read_line [])))
 
 (def: .public test
   Test
   (<| (_.covering /._)
       (do [! random.monad]
         [identity $artifact.random
-         sample (\ ! each (with@ ///.#identity {.#Some identity})
+         sample (# ! each (with@ ///.#identity {.#Some identity})
                    $profile.random)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
-         .let [/ (\ file.default separator)]]
+         .let [/ (# file.default separator)]]
         ($_ _.and
             (in (do [! async.monad]
                   [.let [fs (file.mock /)
@@ -79,16 +79,16 @@
                          library_path (format artifact_path ///artifact/extension.lux_library)
                          pom_path (format artifact_path ///artifact/extension.pom)]
                    verdict (do [! ///action.monad]
-                             [succeeded! (\ ! each (text\= /.success)
+                             [succeeded! (# ! each (text#= /.success)
                                             (..execute! program fs sample))
                               library_exists! (|> library_path
                                                   (format home /)
-                                                  (\ fs file?)
-                                                  (\ async.monad each (|>> {try.#Success})))
+                                                  (# fs file?)
+                                                  (# async.monad each (|>> {try.#Success})))
                               pom_exists! (|> pom_path
                                               (format home /)
-                                              (\ fs file?)
-                                              (\ async.monad each (|>> {try.#Success})))]
+                                              (# fs file?)
+                                              (# async.monad each (|>> {try.#Success})))]
                              (in (and succeeded!
                                       library_exists!
                                       pom_exists!)))]
@@ -100,6 +100,6 @@
                    logging (..execute! program fs (with@ ///.#identity {.#None} sample))]
                   (_.cover' [/.failure]
                             (|> logging
-                                (try\each (text\= /.failure))
+                                (try#each (text#= /.failure))
                                 (try.else false)))))
             ))))
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 76cdf8b02..47456bdba 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -5,12 +5,12 @@
     [abstract
      [monad {"+" [do]}]]
     [control
-     ["[0]" try ("[1]\[0]" functor)]
+     ["[0]" try ("[1]#[0]" functor)]
      [concurrency
       ["[0]" async]]]
     [data
-     ["[0]" binary ("[1]\[0]" equivalence)]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" binary ("[1]#[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)
       [encoding
        ["[0]" utf8]]]
      [format
@@ -35,7 +35,7 @@
   (<| (_.covering /._)
       (do random.monad
         [sample @profile.random
-         .let [fs (file.mock (\ file.default separator))]]
+         .let [fs (file.mock (# file.default separator))]]
         (in (do [! async.monad]
               [.let [console (@version.echo "")]
                outcome (/.do! console fs sample)]
@@ -44,17 +44,17 @@
                 (do !
                   [verdict (do ///action.monad
                              [expected (|> (///pom.write sample)
-                                           (try\each (|>> (\ xml.codec encoded)
-                                                          (\ utf8.codec encoded)))
-                                           (\ ! in))
-                              actual (\ fs read ///pom.file)
+                                           (try#each (|>> (# xml.codec encoded)
+                                                          (# utf8.codec encoded)))
+                                           (# ! in))
+                              actual (# fs read ///pom.file)
 
-                              logging! (\ ///action.monad each
-                                          (text\= /.success)
-                                          (\ console read_line []))
+                              logging! (# ///action.monad each
+                                          (text#= /.success)
+                                          (# console read_line []))
 
                               .let [expected_content!
-                                    (binary\= expected actual)]]
+                                    (binary#= expected actual)]]
                              (in (and logging!
                                       expected_content!)))]
                   (_.cover' [/.do! /.success]
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index cee27dd27..20a59f405 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -12,7 +12,7 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)]
      [collection
       ["[0]" dictionary]
       ["[0]" list]]]
@@ -48,7 +48,7 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          .let [empty_profile (: Profile
-                                (\ ///.monoid identity))
+                                (# ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (with@ ///.#target target))
                with_test (: (-> Profile Profile)
@@ -59,25 +59,25 @@
                            with_target)]
          [compiler resolution] @build.resolution]
         ($_ _.and
-            (let [fs (file.mock (\ file.default separator))
+            (let [fs (file.mock (# file.default separator))
                   console (@version.echo "")]
               (in (do async.monad
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async (@build.good_shell [])) resolution
                                          (with@ ///.#compiler compiler profile))
-                                build_start (\ console read_line [])
-                                build_end (\ console read_line [])
-                                test_start (\ console read_line [])
-                                test_end (\ console read_line [])]
-                               (in (and (and (text\= //build.start build_start)
-                                             (text\= //build.success build_end))
-                                        (and (text\= /.start test_start)
-                                             (text\= /.success test_end)))))]
+                                build_start (# console read_line [])
+                                build_end (# console read_line [])
+                                test_start (# console read_line [])
+                                test_end (# console read_line [])]
+                               (in (and (and (text#= //build.start build_start)
+                                             (text#= //build.success build_end))
+                                        (and (text#= /.start test_start)
+                                             (text#= /.success test_end)))))]
                     (_.cover' [/.do!
                                /.start /.success]
                               (try.else false verdict)))))
-            (let [fs (file.mock (\ file.default separator))
+            (let [fs (file.mock (# file.default separator))
                   console (@version.echo "")]
               (in (do async.monad
                     [verdict (do ///action.monad
@@ -95,21 +95,21 @@
                                                         (def: (on_destroy state)
                                                           {try.#Failure "on_destroy"})
                                                         (def: (on_await state)
-                                                          {try.#Success [state (if (list.any? (text\= "build") actual_arguments)
+                                                          {try.#Success [state (if (list.any? (text#= "build") actual_arguments)
                                                                                  shell.normal
                                                                                  shell.error)]})))})
                                                  [])]
                                 _ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async bad_shell) resolution
                                          (with@ ///.#compiler compiler profile))
-                                build_start (\ console read_line [])
-                                build_end (\ console read_line [])
-                                test_start (\ console read_line [])
-                                test_end (\ console read_line [])]
-                               (in (and (and (text\= //build.start build_start)
-                                             (text\= //build.success build_end))
-                                        (and (text\= /.start test_start)
-                                             (text\= /.failure test_end)))))]
+                                build_start (# console read_line [])
+                                build_end (# console read_line [])
+                                test_start (# console read_line [])
+                                test_end (# console read_line [])]
+                               (in (and (and (text#= //build.start build_start)
+                                             (text#= //build.success build_end))
+                                        (and (text#= /.start test_start)
+                                             (text#= /.failure test_end)))))]
                     (_.cover' [/.failure]
                               (try.else false verdict)))))
             ))))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 583e21fcd..423c88718 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -11,7 +11,7 @@
      [concurrency
       ["[0]" async {"+" [Async]}]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]]]
     [math
      ["[0]" random]]
@@ -72,8 +72,8 @@
               [.let [console (..echo "")]
                verdict (do (try.with async.monad)
                          [_ (/.do! console profile)
-                          logging (\ console read_line [])]
-                         (in (text\= (version.format language/lux.version)
+                          logging (# console read_line [])]
+                         (in (text#= (version.format language/lux.version)
                                      logging)))]
               (_.cover' [/.do!]
                         (try.else false verdict)))))))