From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 stdlib/source/test/aedifex/command/auto.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 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 307946212..eab61d51f 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 (\ utf8.codec encoded (%.nat actual_runs)) dummy_file)
-              _ (\ fs modify
+             [_ (# fs write (# utf8.codec encoded (%.nat actual_runs)) dummy_file)
+              _ (# fs modify
                    (|> actual_runs .int instant.of_millis)
                    dummy_file)]
              (in [shell.normal []])))))]))
@@ -68,14 +68,14 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [end_signal (random.ascii/alpha 5)
-         .let [/ (\ file.default separator)
+         .let [/ (# file.default separator)
                [fs watcher] (watch.mock /)]
          
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          source (random.ascii/alpha 5)
          .let [empty_profile (: Profile
-                                (\ ///.monoid identity))
+                                (# ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (with@ ///.#target target))
                with_program (: (-> Profile Profile)
@@ -89,18 +89,18 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          
-         expected_runs (\ ! each (|>> (n.% 10) (n.max 2)) random.nat)
-         dummy_path (\ ! each (|>> (format source /)) (random.ascii/alpha 5))
+         expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat)
+         dummy_path (# ! each (|>> (format source /)) (random.ascii/alpha 5))
          [compiler resolution] $build.resolution]
         ($_ _.and
             (_.cover [/.delay]
                      (n.> 0 /.delay))
             (in (do async.monad
                   [verdict (do ///action.monad
-                             [_ (\ fs make_directory source)
-                              _ (\ fs write (binary.empty 0) dummy_path)
+                             [_ (# fs make_directory source)
+                              _ (# fs write (binary.empty 0) dummy_path)
                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
-                              _ (\ watcher poll [])]
+                              _ (# watcher poll [])]
                              (do [! async.monad]
                                [no_dangling_process! (|> profile
                                                          (with@ ///.#compiler compiler)
@@ -110,7 +110,7 @@
                                                           fs
                                                           (shell.async ($build.good_shell []))
                                                           resolution)
-                                                         (\ ! each (|>> (case> {try.#Failure error}
+                                                         (# ! each (|>> (case> {try.#Failure error}
                                                                                (same? end_signal error)
 
                                                                                {try.#Success _}
@@ -118,7 +118,7 @@
                                 correct_number_of_runs! (|> @runs
                                                             atom.read!
                                                             async.future
-                                                            (\ ! each (n.= expected_runs)))]
+                                                            (# ! each (n.= expected_runs)))]
                                (in {try.#Success (and correct_number_of_runs!
                                                       no_dangling_process!)})))]
                   (_.cover' [/.do!]
-- 
cgit v1.2.3