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

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

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 6a7f0a960..2e669228a 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -43,7 +43,7 @@
 (def: .public random
   (Random [//.Profile /.Package])
   (do [! random.monad]
-    [content_size (# ! each (n.% 100) random.nat)
+    [content_size (at ! each (n.% 100) random.nat)
      content ($binary.random content_size)
      [profile pom] (random.one (function (_ profile)
                                  (try.maybe
@@ -61,7 +61,7 @@
         [[profile package] ..random]
         (all _.and
              (_.for [/.equivalence]
-                    ($equivalence.spec /.equivalence (# ! each product.right ..random)))
+                    ($equivalence.spec /.equivalence (at ! each product.right ..random)))
              
              (_.coverage [/.local?]
                (/.local? (has /.#origin {//origin.#Local "~/yolo"} package)))
@@ -92,9 +92,9 @@
                             expected_md5 (//hash.md5 binary_pom)]
                         (and (same? expected_pom actual_pom)
                              (|> (do try.monad
-                                   [xml_pom (# utf8.codec decoded binary_pom)
-                                    decoded_pom (# xml.codec decoded xml_pom)]
-                                   (in (# xml.equivalence = actual_pom decoded_pom)))
+                                   [xml_pom (at utf8.codec decoded binary_pom)
+                                    decoded_pom (at xml.codec decoded xml_pom)]
+                                   (in (at xml.equivalence = actual_pom decoded_pom)))
                                  (try.else false))
                              (case pom_status
                                {//status.#Verified actual_sha1 expected_md5}
@@ -107,7 +107,7 @@
                (let [expected (the //.#dependencies profile)]
                  (case (/.dependencies package)
                    {try.#Success actual}
-                   (# set.equivalence = expected actual)
+                   (at set.equivalence = expected actual)
                    
                    {try.#Failure error}
                    false)))
@@ -115,7 +115,7 @@
                (let [expected (the //.#repositories profile)]
                  (case (/.repositories package)
                    {try.#Success actual}
-                   (# set.equivalence = expected actual)
+                   (at set.equivalence = expected actual)
                    
                    {try.#Failure error}
                    false)))
-- 
cgit v1.2.3