From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Jul 2021 03:51:10 -0400
Subject: Re-named wrap => in && unwrap => out.

---
 stdlib/source/test/aedifex/command/auto.lux | 58 ++++++++++++++---------------
 1 file changed, 29 insertions(+), 29 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 27b12bc42..e27fd039a 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -55,13 +55,13 @@
        (do {! async.monad}
          [[_ actual_runs] (async.future (atom.update inc @runs))]
          (if (n.= expected_runs actual_runs)
-           (wrap (#try.Failure end_signal))
+           (in (#try.Failure end_signal))
            (do (try.with !)
              [_ (\ fs write (\ utf8.codec encode (%.nat actual_runs)) dummy_file)
               _ (\ fs modify
                    (|> actual_runs .int instant.of_millis)
                    dummy_file)]
-             (wrap [shell.normal []])))))]))
+             (in [shell.normal []])))))]))
 
 (def: #export test
   Test
@@ -95,32 +95,32 @@
         ($_ _.and
             (_.cover [/.delay]
                      (n.> 0 /.delay))
-            (wrap (do async.monad
-                    [verdict (do ///action.monad
-                               [_ (\ fs make_directory source)
-                                _ (\ fs write (binary.create 0) dummy_path)
-                                #let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
-                                _ (\ watcher poll [])]
-                               (do {! async.monad}
-                                 [no_dangling_process! (|> profile
-                                                           (set@ #///.compiler compiler)
-                                                           ((/.do! 1 watcher command)
-                                                            ($version.echo "")
-                                                            (program.async (program.mock environment.empty home working_directory))
-                                                            fs
-                                                            (shell.async ($build.good_shell []))
-                                                            resolution)
-                                                           (\ ! map (|>> (case> (#try.Failure error)
-                                                                                (is? end_signal error)
+            (in (do async.monad
+                  [verdict (do ///action.monad
+                             [_ (\ fs make_directory source)
+                              _ (\ fs write (binary.create 0) dummy_path)
+                              #let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
+                              _ (\ watcher poll [])]
+                             (do {! async.monad}
+                               [no_dangling_process! (|> profile
+                                                         (set@ #///.compiler compiler)
+                                                         ((/.do! 1 watcher command)
+                                                          ($version.echo "")
+                                                          (program.async (program.mock environment.empty home working_directory))
+                                                          fs
+                                                          (shell.async ($build.good_shell []))
+                                                          resolution)
+                                                         (\ ! map (|>> (case> (#try.Failure error)
+                                                                              (is? end_signal error)
 
-                                                                                (#try.Success _)
-                                                                                false))))
-                                  correct_number_of_runs! (|> @runs
-                                                              atom.read
-                                                              async.future
-                                                              (\ ! map (n.= expected_runs)))]
-                                 (wrap (#try.Success (and correct_number_of_runs!
-                                                          no_dangling_process!)))))]
-                    (_.cover' [/.do!]
-                              (try.default false verdict))))
+                                                                              (#try.Success _)
+                                                                              false))))
+                                correct_number_of_runs! (|> @runs
+                                                            atom.read
+                                                            async.future
+                                                            (\ ! map (n.= expected_runs)))]
+                               (in (#try.Success (and correct_number_of_runs!
+                                                      no_dangling_process!)))))]
+                  (_.cover' [/.do!]
+                            (try.default false verdict))))
             ))))
-- 
cgit v1.2.3