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/test/aedifex/metadata/artifact.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata/artifact.lux')

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 5708eb39b..29f074af9 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -8,14 +8,14 @@
       ["$[0]" equivalence]]]
     [control
      ["[0]" maybe]
-     ["[0]" try ("[1]\[0]" functor)]
+     ["[0]" try ("[1]#[0]" functor)]
      [parser
       ["[0]" environment]
       ["<[0]>" xml]]
      [concurrency
       ["[0]" async]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)]
      [collection
       ["[0]" list]]]
     [macro
@@ -48,12 +48,12 @@
       (random.ascii/alpha 5)
       (random.list 5 (random.ascii/alpha 5))
       (do [! random.monad]
-        [year (\ ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
-         month (\ ! each (|>> (n.% 12) (n.+ 1)) random.nat)
-         day_of_month (\ ! each (|>> (n.% 28) (n.+ 1)) random.nat)
-         hour (\ ! each (n.% 24) random.nat)
-         minute (\ ! each (n.% 60) random.nat)
-         second (\ ! each (n.% 60) random.nat)]
+        [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
+         month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat)
+         day_of_month (# ! each (|>> (n.% 28) (n.+ 1)) random.nat)
+         hour (# ! each (n.% 24) random.nat)
+         minute (# ! each (n.% 60) random.nat)
+         second (# ! each (n.% 60) random.nat)]
         (in (try.trusted
              (do try.monad
                [year (year.year year)
@@ -89,16 +89,16 @@
                            /.format
                            list
                            (<xml>.result /.parser)
-                           (try\each (\ /.equivalence = expected))
+                           (try#each (# /.equivalence = expected))
                            (try.else false))))
             (_.cover [/.uri]
-                     (text\= (//.remote_project_uri artifact)
+                     (text#= (//.remote_project_uri artifact)
                              (/.uri artifact)))
             (do random.monad
               [home (random.ascii/lower 5)
                working_directory (random.ascii/lower 5)
                .let [program (program.async (program.mock environment.empty home working_directory))
-                     fs (file.mock (\ file.default separator))
+                     fs (file.mock (# file.default separator))
                      repository (///repository/local.repository program fs)]]
               (in (do async.monad
                     [wrote? (/.write repository artifact expected)
@@ -109,7 +109,7 @@
                                      {try.#Failure _} false)
                                    (case actual
                                      {try.#Success actual}
-                                     (\ /.equivalence = expected actual)
+                                     (# /.equivalence = expected actual)
                                      
                                      {try.#Failure _}
                                      false))))))
-- 
cgit v1.2.3