From e64b6d0114c26a455e19a416b5f02a4d19dd711f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 26 Jul 2021 01:45:57 -0400
Subject: Re-named Promise to Async.

---
 stdlib/source/test/aedifex/command/auto.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 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 474a8dd1f..27b12bc42 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -11,7 +11,7 @@
       ["." environment]]
      [concurrency
       ["." atom (#+ Atom)]
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      ["." binary]
      ["." text
@@ -45,15 +45,15 @@
       [resolution (#+ Resolution)]]]]])
 
 (def: (command expected_runs end_signal fs dummy_file)
-  (-> Nat Text (file.System Promise) file.Path
+  (-> Nat Text (file.System Async) file.Path
       [(Atom Nat)
-       (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command [Exit Any]))])
+       (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))])
   (let [@runs (: (Atom Nat)
                  (atom.atom 0))]
     [@runs
      (function (_ console program fs shell resolution profile)
-       (do {! promise.monad}
-         [[_ actual_runs] (promise.future (atom.update inc @runs))]
+       (do {! async.monad}
+         [[_ actual_runs] (async.future (atom.update inc @runs))]
          (if (n.= expected_runs actual_runs)
            (wrap (#try.Failure end_signal))
            (do (try.with !)
@@ -95,13 +95,13 @@
         ($_ _.and
             (_.cover [/.delay]
                      (n.> 0 /.delay))
-            (wrap (do promise.monad
+            (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 {! promise.monad}
+                               (do {! async.monad}
                                  [no_dangling_process! (|> profile
                                                            (set@ #///.compiler compiler)
                                                            ((/.do! 1 watcher command)
@@ -117,7 +117,7 @@
                                                                                 false))))
                                   correct_number_of_runs! (|> @runs
                                                               atom.read
-                                                              promise.future
+                                                              async.future
                                                               (\ ! map (n.= expected_runs)))]
                                  (wrap (#try.Success (and correct_number_of_runs!
                                                           no_dangling_process!)))))]
-- 
cgit v1.2.3