diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command')
| -rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 2 |
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 [])))] |