aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to '')
-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
3 files changed, 6 insertions, 6 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 [])))]