diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command')
| -rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 2 |
3 files changed, 4 insertions, 4 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 |