From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 stdlib/source/test/aedifex/input.lux | 68 ++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 34 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 01db3538c..dedb9b33c 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -1,35 +1,35 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     [concurrency
-      ["[0]" async {"+" Async}]]]
-    [data
-     [text
-      ["%" format]
-      [encoding
-       ["[0]" utf8]]]
-     [collection
-      ["[0]" set {"+" Set}]]]
-    [math
-     ["[0]" random]]
-    [world
-     ["[0]" file]]]]
-  [//
-   ["$[0]" profile]]
-  [\\program
-   ["[0]" /
-    ["/[1]" // "_"
-     ["[1]" profile {"+" Profile}]
-     ["[1][0]" project]
-     ["[1][0]" action]
-     ["[1][0]" format]
-     [repository
-      [remote {"+" Address}]]]]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    [concurrency
+     ["[0]" async {"+" Async}]]]
+   [data
+    [text
+     ["%" format]
+     [encoding
+      ["[0]" utf8]]]
+    [collection
+     ["[0]" set {"+" Set}]]]
+   [math
+    ["[0]" random]]
+   [world
+    ["[0]" file]]]]
+ [//
+  ["$[0]" profile]]
+ [\\program
+  ["[0]" /
+   ["/[1]" // "_"
+    ["[1]" profile {"+" Profile}]
+    ["[1][0]" project]
+    ["[1][0]" action]
+    ["[1][0]" format]
+    [repository
+     [remote {"+" Address}]]]]])
 
 (def: (with_default_source sources)
   (-> (Set //.Source) (Set //.Source))
@@ -45,7 +45,7 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [expected (# ! each (with@ //.#parents (list)) $profile.random)
+        [expected (# ! each (has //.#parents (list)) $profile.random)
          .let [fs (: (file.System Async)
                      (file.mock (# file.default separator)))]]
         (in (do async.monad
@@ -60,8 +60,8 @@
                                     (/.read async.monad fs (list //.default)))]
                          (in (# //.equivalence =
                                 (|> expected
-                                    (revised@ //.#sources ..with_default_source)
-                                    (revised@ //.#repositories ..with_default_repository))
+                                    (revised //.#sources ..with_default_source)
+                                    (revised //.#repositories ..with_default_repository))
                                 actual)))]
               (_.cover' [/.read]
                         (try.else false verdict)))))))
-- 
cgit v1.2.3