From 464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 9 Aug 2021 23:02:01 -0400
Subject: Improved single-line comment syntax (from "##" to "...").

---
 stdlib/source/test/aedifex/command/auto.lux    | 4 ++--
 stdlib/source/test/aedifex/command/install.lux | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 6a7ef98ab..074eeab5e 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -53,7 +53,7 @@
     [@runs
      (function (_ console program fs shell resolution profile)
        (do {! async.monad}
-         [[_ actual_runs] (async.future (atom.update inc @runs))]
+         [[_ actual_runs] (async.future (atom.update! inc @runs))]
          (if (n.= expected_runs actual_runs)
            (in (#try.Failure end_signal))
            (do (try.with !)
@@ -116,7 +116,7 @@
                                                                               (#try.Success _)
                                                                               false))))
                                 correct_number_of_runs! (|> @runs
-                                                            atom.read
+                                                            atom.read!
                                                             async.future
                                                             (\ ! map (n.= expected_runs)))]
                                (in (#try.Success (and correct_number_of_runs!
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 0ca484196..a3cd99edd 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -84,11 +84,11 @@
                               library_exists! (|> library_path
                                                   (format home /)
                                                   (\ fs file?)
-                                                  (\ async.monad map exception.return))
+                                                  (\ async.monad map (|>> #try.Success)))
                               pom_exists! (|> pom_path
                                               (format home /)
                                               (\ fs file?)
-                                              (\ async.monad map exception.return))]
+                                              (\ async.monad map (|>> #try.Success)))]
                              (in (and succeeded!
                                       library_exists!
                                       pom_exists!)))]
-- 
cgit v1.2.3