aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2022-03-30 14:05:57 -0400
committerEduardo Julian2022-03-30 14:05:57 -0400
commit381ec5920d9ebeb335963778dec182268819e718 (patch)
tree5c9288c5fbb16c21a0f00f96710b0aa7db4585f4 /stdlib/source/program
parent1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 (diff)
Now demanding mandatory loop names, instead of using default "again" name.
Diffstat (limited to 'stdlib/source/program')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux2
-rw-r--r--stdlib/source/program/aedifex/command/build.lux4
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/program/aedifex/dependency/resolution.lux10
-rw-r--r--stdlib/source/program/aedifex/hash.lux6
-rw-r--r--stdlib/source/program/compositor.lux6
6 files changed, 15 insertions, 15 deletions
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)