diff options
Diffstat (limited to 'stdlib/source/program')
| -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 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/compositor.lux | 2 |
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)] |