diff options
| author | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
| commit | 17e7566be51df5e428a6b10e6469201a8a9468da (patch) | |
| tree | 0d4ed80c9c9d846784b5bf460f6e6f5fc5b96663 /stdlib/source/test/lux/world/shell.lux | |
| parent | eff4c59794868b89d60fdc411f9b544a270b817e (diff) | |
Made the be/de macros for (co)monadic expression extensible.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/world/shell.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux index ecea6d8b9..0d67c79a0 100644 --- a/stdlib/source/test/lux/world/shell.lux +++ b/stdlib/source/test/lux/world/shell.lux @@ -38,8 +38,8 @@ (if dead? (exception.except ..dead []) (do try.monad - [to_echo (try.of_maybe (list.head arguments))] - (in [dead? to_echo])))) + [echo (try.of_maybe (list.head arguments))] + (in [dead? echo])))) (def: (on_error dead?) (if dead? @@ -95,7 +95,7 @@ input (random.ascii/alpha 5) destruction (random.ascii/alpha 5) exit random.int - #let [shell (/.async (..io_shell command oops input destruction exit))]] + .let [shell (/.async (..io_shell command oops input destruction exit))]] (in (do {! async.monad} [verdict (do (try.with !) [process (\ shell execute [environment.empty "~" command (list)]) |