From 381ec5920d9ebeb335963778dec182268819e718 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 30 Mar 2022 14:05:57 -0400
Subject: Now demanding mandatory loop names, instead of using default "again"
 name.

---
 stdlib/source/program/aedifex/command/auto.lux          |  2 +-
 stdlib/source/program/aedifex/command/build.lux         |  4 ++--
 stdlib/source/program/aedifex/command/clean.lux         |  2 +-
 stdlib/source/program/aedifex/dependency/resolution.lux | 10 +++++-----
 stdlib/source/program/aedifex/hash.lux                  |  6 +++---
 stdlib/source/program/compositor.lux                    |  6 +++---
 6 files changed, 15 insertions(+), 15 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 d447bfe1d..e3cfaac74 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -60,7 +60,7 @@
           (do [! ///action.monad]
             [_ (monad.each ! (# watcher start watch.modification) targets)
              _ <call>]
-            (loop [_ []]
+            (loop (again [_ []])
               (do !
                 [_ (..pause delay)
                  events (# watcher poll [])]
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index ed65518e4..4538a2834 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -147,8 +147,8 @@
     text.equivalence)
 
   (def: (< left right)
-    (loop [left (text.all_split_by ..version_separator left)
-           right (text.all_split_by ..version_separator right)]
+    (loop (again [left (text.all_split_by ..version_separator left)
+                  right (text.all_split_by ..version_separator right)])
       (case [left right]
         [{.#Item leftH leftT} {.#Item rightH rightT}]
         (if (text#= leftH rightH)
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 34ed21042..16bfce404 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -37,7 +37,7 @@
      ? (# fs directory? target)
      _ (let [! ///action.monad]
          (if ?
-           (loop [root target]
+           (loop (again [root target])
              (do !
                [_ (..clean_files! fs root)
                 _ (|> root
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 45d275527..ea030b6de 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -203,11 +203,11 @@
       (Async [(List Dependency)
               (List Dependency)
               Resolution]))
-  (loop [repositories repositories
-         successes (is (List Dependency) (list))
-         failures (is (List Dependency) (list))
-         dependencies dependencies
-         resolution resolution]
+  (loop (again [repositories repositories
+                successes (is (List Dependency) (list))
+                failures (is (List Dependency) (list))
+                dependencies dependencies
+                resolution resolution])
     (case dependencies
       {.#End}
       (# async.monad in
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index e0548920f..5adf44a9e 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -123,9 +123,9 @@
           (-> Text (Try (Hash h)))))
     (let [hash_size (..hash_size encoded)]
       (if (n.= size hash_size)
-        (loop [input encoded
-               chunk 0
-               output (binary.empty hash_size)]
+        (loop (again [input encoded
+                      chunk 0
+                      output (binary.empty hash_size)])
           (let [index (n.* chunk i64.bytes_per_i64)]
             (case (text.split_at ..hex_per_chunk input)
               {.#Some [head tail]}
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index a6e31ec08..aaf9e27f4 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -116,9 +116,9 @@
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
   (do [! (try.with async.monad)]
     []
-    (loop [pending host_dependencies
-           output (is (Dictionary file.Path Binary)
-                      (dictionary.empty text.hash))]
+    (loop (again [pending host_dependencies
+                  output (is (Dictionary file.Path Binary)
+                             (dictionary.empty text.hash))])
       (case pending
         {.#End}
         (in output)
-- 
cgit v1.2.3