From ccfa75463cd7c702f41c3dae5cbdaeade7ba5c31 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Sep 2021 16:41:18 -0400
Subject: Re-named "recur" to "again".

---
 stdlib/source/program/aedifex/command/auto.lux  | 4 ++--
 stdlib/source/program/aedifex/command/build.lux | 6 +++---
 stdlib/source/program/aedifex/command/clean.lux | 2 +-
 3 files changed, 6 insertions(+), 6 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 247160615..a44e55f4e 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -68,7 +68,7 @@
                   {.#Item _}
                   (do !
                     [_ <call>]
-                    (recur []))
+                    (again []))
 
                   {.#End}
-                  (recur []))))))))))
+                  (again []))))))))))
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index e95c23455..a01db7559 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -141,7 +141,7 @@
       (case [left right]
         [{.#Item leftH leftT} {.#Item rightH rightT}]
         (if (text#= leftH rightH)
-          (recur leftT rightT)
+          (again leftT rightT)
           (or (n.< (text.size leftH) (text.size rightH))
               (text#< leftH rightH)))
 
@@ -201,7 +201,7 @@
                               (async.Resolver (Try Any))]
                              (async.async []))
            _ (|> (# process <capability> [])
-                 (async.upon! (function (recur ?line)
+                 (async.upon! (function (again ?line)
                                 (case ?line
                                   {try.#Failure error}
                                   (if (exception.match? shell.no_more_output error)
@@ -215,7 +215,7 @@
                                                    (write! {try.#Failure error})
 
                                                    {try.#Success _}
-                                                   (async.upon! recur
+                                                   (async.upon! again
                                                                 (# process <capability> []))))
                                                (console.write_line line console)))))
                  io.run!)]
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 0e15592e4..ed5c91d56 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -42,7 +42,7 @@
                [_ (..clean_files! fs root)
                 _ (|> root
                       (# fs sub_directories)
-                      (# ! each (monad.each ! recur))
+                      (# ! each (monad.each ! again))
                       (# ! conjoint))]
                (# fs delete root)))
            (# ! in [])))]
-- 
cgit v1.2.3