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

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

diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 50bd8e183..9b01c2feb 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -48,7 +48,7 @@
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
          .let [empty_profile (is Profile
-                                 (# ///.monoid identity))
+                                 (at ///.monoid identity))
                with_target (is (-> Profile Profile)
                                (has ///.#target target))
                with_test (is (-> Profile Profile)
@@ -59,17 +59,17 @@
                            with_target)]
          [compiler resolution] @build.resolution]
         (all _.and
-             (let [fs (file.mock (# file.default separator))
+             (let [fs (file.mock (at file.default separator))
                    console (@version.echo "")]
                (in (do async.monad
                      [verdict (do ///action.monad
                                 [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                           fs (shell.async (@build.good_shell [])) resolution
                                           (has ///.#lux compiler profile))
-                                 build_start (# console read_line [])
-                                 build_end (# console read_line [])
-                                 test_start (# console read_line [])
-                                 test_end (# console read_line [])]
+                                 build_start (at console read_line [])
+                                 build_end (at console read_line [])
+                                 test_start (at console read_line [])
+                                 test_end (at console read_line [])]
                                 (in (and (and (text#= //build.start build_start)
                                               (text#= //build.success build_end))
                                          (and (text#= /.start test_start)
@@ -77,7 +77,7 @@
                      (_.coverage' [/.do!
                                    /.start /.success]
                        (try.else false verdict)))))
-             (let [fs (file.mock (# file.default separator))
+             (let [fs (file.mock (at file.default separator))
                    console (@version.echo "")]
                (in (do async.monad
                      [verdict (do ///action.monad
@@ -102,10 +102,10 @@
                                  _ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                           fs (shell.async bad_shell) resolution
                                           (has ///.#lux compiler profile))
-                                 build_start (# console read_line [])
-                                 build_end (# console read_line [])
-                                 test_start (# console read_line [])
-                                 test_end (# console read_line [])]
+                                 build_start (at console read_line [])
+                                 build_end (at console read_line [])
+                                 test_start (at console read_line [])
+                                 test_end (at console read_line [])]
                                 (in (and (and (text#= //build.start build_start)
                                               (text#= //build.success build_end))
                                          (and (text#= /.start test_start)
-- 
cgit v1.2.3