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 +-
 stdlib/source/program/aedifex/dependency/resolution.lux | 6 +++---
 stdlib/source/program/aedifex/hash.lux                  | 2 +-
 stdlib/source/program/compositor.lux                    | 2 +-
 6 files changed, 11 insertions(+), 11 deletions(-)

(limited to 'stdlib/source/program')

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 [])))]
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index d973262af..00f20cda1 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -220,7 +220,7 @@
       {.#Item head tail}
       (case (value@ [//.#artifact ///artifact.#version] head)
         ... Skip if there is no version
-        "" (recur repositories
+        "" (again repositories
                   successes
                   failures
                   tail
@@ -251,7 +251,7 @@
                        ...                          (list#each new_repository))
                        ... sub_repositories (list#composite repositories package_repositories)
                        ]]
-                (recur repositories
+                (again repositories
                        {.#Item head successes}
                        failures
                        (set.list (set.union (set.of_list //.hash tail)
@@ -259,7 +259,7 @@
                        (dictionary.has head package resolution)))
 
               {try.#Failure error}
-              (recur repositories
+              (again repositories
                      successes
                      {.#Item head failures}
                      tail
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index 6fa565867..fc731c832 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -129,7 +129,7 @@
               (do try.monad
                 [head (# n.hex decoded head)
                  output (binary.write/64! index head output)]
-                (recur tail (++ chunk) output))
+                (again tail (++ chunk) output))
               
               {.#None}
               (case (..hash_size input)
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 6e2ea94c0..7499075cc 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -107,7 +107,7 @@
         {.#Item head tail}
         (do !
           [content (# fs read head)]
-          (recur tail
+          (again tail
                  (dictionary.has head content output)))))))
 
 (with_expansions [<parameters> (as_is anchor expression artifact)]
-- 
cgit v1.2.3