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/snapshot.lux | 28 ++++++++++++------------
 1 file changed, 14 insertions(+), 14 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 069cefcd2..8f90a45cf 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -8,20 +8,20 @@
       ["$[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
      ["[0]" code]]
     [math
-     ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]
+     ["[0]" random {"+" [Random]} ("[1]#[0]" monad)]
      [number
       ["n" nat]]]
     ["[0]" time
@@ -52,12 +52,12 @@
 (def: random_instant
   (Random Instant)
   (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)
@@ -73,7 +73,7 @@
 (def: random_versioning
   (Random Versioning)
   ($_ random.and
-      (random\in {///snapshot.#Local})
+      (random#in {///snapshot.#Local})
       $///artifact/time.random
       (random.list 5 $///artifact/snapshot/version.random)
       ))
@@ -101,16 +101,16 @@
                          /.format
                          list
                          (<xml>.result /.parser)
-                         (try\each (\ /.equivalence = expected))
+                         (try#each (# /.equivalence = expected))
                          (try.else false)))
             (_.cover [/.uri]
-                     (text\= (//.remote_artifact_uri artifact)
+                     (text#= (//.remote_artifact_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)
@@ -121,7 +121,7 @@
                                      {try.#Failure _} false)
                                    (case actual
                                      {try.#Success actual}
-                                     (\ /.equivalence = expected actual)
+                                     (# /.equivalence = expected actual)
                                      
                                      {try.#Failure _}
                                      false))))))
-- 
cgit v1.2.3