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

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

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 16c91c69a..874170bc2 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -45,23 +45,23 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [expected (# ! each (has //.#parents (list)) $profile.random)
+        [expected (at ! each (has //.#parents (list)) $profile.random)
          .let [fs (is (file.System Async)
-                      (file.mock (# file.default separator)))]]
+                      (file.mock (at file.default separator)))]]
         (in (do async.monad
               [verdict (do //action.monad
                          [.let [profile (|> expected
                                             (//project.project //.default)
                                             //format.project
                                             %.code
-                                            (# utf8.codec encoded))]
-                          _ (# fs write //project.file profile)
+                                            (at utf8.codec encoded))]
+                          _ (at fs write //project.file profile)
                           actual (is (Async (Try Profile))
                                      (/.read async.monad fs (list //.default)))]
-                         (in (# //.equivalence =
-                                (|> expected
-                                    (revised //.#sources ..with_default_source)
-                                    (revised //.#repositories ..with_default_repository))
-                                actual)))]
+                         (in (at //.equivalence =
+                                 (|> expected
+                                     (revised //.#sources ..with_default_source)
+                                     (revised //.#repositories ..with_default_repository))
+                                 actual)))]
               (_.coverage' [/.read]
                 (try.else false verdict)))))))
-- 
cgit v1.2.3