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/command/install.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 4de5c5226..55bb762d0 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -40,7 +40,7 @@
 
 (def: .public (make_sources! fs sources)
   (-> (file.System Async) (Set file.Path) (Action (List Any)))
-  (let [/ (# fs separator)
+  (let [/ (at fs separator)
         ! ///action.monad]
     (|> sources
         set.list
@@ -57,18 +57,18 @@
     [.let [console ($version.echo "")]
      _ (..make_sources! fs (the ///.#sources sample))
      _ (/.do! console fs (///repository/local.repository program fs) sample)]
-    (# console read_line [])))
+    (at console read_line [])))
 
 (def: .public test
   Test
   (<| (_.covering /._)
       (do [! random.monad]
         [identity $artifact.random
-         sample (# ! each (has ///.#identity {.#Some identity})
-                   $profile.random)
+         sample (at ! each (has ///.#identity {.#Some identity})
+                    $profile.random)
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
-         .let [/ (# file.default separator)]]
+         .let [/ (at file.default separator)]]
         (all _.and
              (in (do [! async.monad]
                    [.let [fs (file.mock /)
@@ -78,16 +78,16 @@
                           library_path (format artifact_path ///artifact/extension.lux_library)
                           pom_path (format artifact_path ///artifact/extension.pom)]
                     verdict (do [! ///action.monad]
-                              [succeeded! (# ! each (text#= /.success)
-                                             (..execute! program fs sample))
+                              [succeeded! (at ! each (text#= /.success)
+                                              (..execute! program fs sample))
                                library_exists! (|> library_path
                                                    (format home /)
-                                                   (# fs file?)
-                                                   (# async.monad each (|>> {try.#Success})))
+                                                   (at fs file?)
+                                                   (at async.monad each (|>> {try.#Success})))
                                pom_exists! (|> pom_path
                                                (format home /)
-                                               (# fs file?)
-                                               (# async.monad each (|>> {try.#Success})))]
+                                               (at fs file?)
+                                               (at async.monad each (|>> {try.#Success})))]
                               (in (and succeeded!
                                        library_exists!
                                        pom_exists!)))]
-- 
cgit v1.2.3