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

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index c057d173d..b483ecd2c 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -57,8 +57,8 @@
          (if (n.= expected_runs actual_runs)
            (in {try.#Failure end_signal})
            (do (try.with !)
-             [_ (# fs write dummy_file (# utf8.codec encoded (%.nat actual_runs)))
-              _ (# fs modify dummy_file (|> actual_runs .int instant.of_millis))]
+             [_ (at fs write dummy_file (at utf8.codec encoded (%.nat actual_runs)))
+              _ (at fs modify dummy_file (|> actual_runs .int instant.of_millis))]
              (in [shell.normal []])))))]))
 
 (def: .public test
@@ -66,14 +66,14 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [end_signal (random.alphabetic 5)
-         .let [/ (# file.default separator)
+         .let [/ (at file.default separator)
                [fs watcher] (watch.mock /)]
          
          program (random.alphabetic 5)
          target (random.alphabetic 5)
          source (random.alphabetic 5)
          .let [empty_profile (is Profile
-                                 (# ///.monoid identity))
+                                 (at ///.monoid identity))
                with_target (is (-> Profile Profile)
                                (has ///.#target target))
                with_program (is (-> Profile Profile)
@@ -87,18 +87,18 @@
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
          
-         expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat)
-         dummy_path (# ! each (|>> (format source /)) (random.alphabetic 5))
+         expected_runs (at ! each (|>> (n.% 10) (n.max 2)) random.nat)
+         dummy_path (at ! each (|>> (format source /)) (random.alphabetic 5))
          [compiler resolution] $build.resolution]
         (all _.and
              (_.coverage [/.delay]
                (n.> 0 /.delay))
              (in (do async.monad
                    [verdict (do ///action.monad
-                              [_ (# fs make_directory source)
-                               _ (# fs write dummy_path (binary.empty 0))
+                              [_ (at fs make_directory source)
+                               _ (at fs write dummy_path (binary.empty 0))
                                .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
-                               _ (# watcher poll [])]
+                               _ (at watcher poll [])]
                               (do [! async.monad]
                                 [no_dangling_process! (|> profile
                                                           (has ///.#lux compiler)
@@ -108,16 +108,16 @@
                                                            fs
                                                            (shell.async ($build.good_shell []))
                                                            resolution)
-                                                          (# ! each (|>> (pipe.case
-                                                                           {try.#Failure error}
-                                                                           (same? end_signal error)
+                                                          (at ! each (|>> (pipe.case
+                                                                            {try.#Failure error}
+                                                                            (same? end_signal error)
 
-                                                                           {try.#Success _}
-                                                                           false))))
+                                                                            {try.#Success _}
+                                                                            false))))
                                  correct_number_of_runs! (|> @runs
                                                              atom.read!
                                                              async.future
-                                                             (# ! each (n.= expected_runs)))]
+                                                             (at ! each (n.= expected_runs)))]
                                 (in {try.#Success (and correct_number_of_runs!
                                                        no_dangling_process!)})))]
                    (_.coverage' [/.do!]
-- 
cgit v1.2.3