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/program/aedifex/command/auto.lux  |  2 +-
 stdlib/source/program/aedifex/command/build.lux | 18 +++++++++---------
 2 files changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 2c4c8ac19..579f68462 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -41,7 +41,7 @@
 
 (def: (pause delay)
   (-> Nat (Async (Try Any)))
-  (async.delay delay (#try.Success [])))
+  (async.delayed delay (#try.Success [])))
 
 (def: .public (do! delay watcher command)
   (All [a]
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index ff7825678..00380e59b 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -115,7 +115,7 @@
         artifact (get@ #///dependency.artifact dependency)]
     (|> artifact
         (///local.uri (get@ #///artifact.version artifact))
-        (text.replace_all uri.separator /)
+        (text.replaced uri.separator /)
         (format home /)
         (text.suffix (format "." (get@ #///dependency.type dependency))))))
 
@@ -193,29 +193,29 @@
 (template [<name> <capability>]
   [(def: .public (<name> console process)
      (-> (Console Async) (Process Async) (Async (Try Any)))
-     ## This is a very odd way of implementing this function.
-     ## But it's written this way because the more straightforward way (i.e. by using (try.with async.monad))
-     ## eventually led to the function hanging/freezing.
-     ## I'm not sure why it happened, but I got this weirder implementation to work.
+     ... This is a very odd way of implementing this function.
+     ... But it's written this way because the more straightforward way (i.e. by using (try.with async.monad))
+     ... eventually led to the function hanging/freezing.
+     ... I'm not sure why it happened, but I got this weirder implementation to work.
      (let [[read! write!] (: [(Async (Try Any))
                               (async.Resolver (Try Any))]
                              (async.async []))
            _ (|> (\ process <capability> [])
-                 (async.await (function (recur ?line)
+                 (async.upon! (function (recur ?line)
                                 (case ?line
                                   (#try.Failure error)
                                   (if (exception.match? shell.no_more_output error)
                                     (write! (#try.Success []))
-                                    (async.await write! (console.write_line error console)))
+                                    (async.upon! write! (console.write_line error console)))
                                   
                                   (#try.Success line)
-                                  (async.await (function (_ outcome)
+                                  (async.upon! (function (_ outcome)
                                                  (case outcome
                                                    (#try.Failure error)
                                                    (write! (#try.Failure error))
 
                                                    (#try.Success _)
-                                                   (async.await recur
+                                                   (async.upon! recur
                                                                 (\ process <capability> []))))
                                                (console.write_line line console)))))
                  io.run)]
-- 
cgit v1.2.3