From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/test/aedifex/metadata/artifact.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 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 34869e646..041bad539 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -48,12 +48,12 @@
        (random.alphabetic 5)
        (random.list 5 (random.alphabetic 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 (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
+          month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat)
+          day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat)
+          hour (at ! each (n.% 24) random.nat)
+          minute (at ! each (n.% 60) random.nat)
+          second (at ! each (n.% 60) random.nat)]
          (in (try.trusted
               (do try.monad
                 [year (year.year year)
@@ -89,7 +89,7 @@
                      /.format
                      list
                      (<xml>.result /.parser)
-                     (try#each (# /.equivalence = expected))
+                     (try#each (at /.equivalence = expected))
                      (try.else false))))
              (_.coverage [/.uri]
                (text#= (//.remote_project_uri artifact)
@@ -98,7 +98,7 @@
                [home (random.lower_case 5)
                 working_directory (random.lower_case 5)
                 .let [program (program.async (program.mock environment.empty home working_directory))
-                      fs (file.mock (# file.default separator))
+                      fs (file.mock (at 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)
+                              (at /.equivalence = expected actual)
                               
                               {try.#Failure _}
                               false))))))
-- 
cgit v1.2.3