aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux4
-rw-r--r--stdlib/source/program/aedifex/command/build.lux6
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/program/aedifex/dependency/resolution.lux6
-rw-r--r--stdlib/source/program/aedifex/hash.lux2
-rw-r--r--stdlib/source/program/compositor.lux2
6 files changed, 11 insertions, 11 deletions
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)]