diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/specification/lux/world/console.lux | 2 | ||||
-rw-r--r-- | stdlib/source/specification/lux/world/file.lux | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/specification/lux/world/console.lux b/stdlib/source/specification/lux/world/console.lux index 5632e5cd8..154f8faca 100644 --- a/stdlib/source/specification/lux/world/console.lux +++ b/stdlib/source/specification/lux/world/console.lux @@ -29,7 +29,7 @@ ?close/good (\ console close []) ?close/bad (\ console close []) - #let [can_write! + .let [can_write! (case ?write (#try.Success _) true diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux index 147593f14..83bfc2465 100644 --- a/stdlib/source/specification/lux/world/file.lux +++ b/stdlib/source/specification/lux/world/file.lux @@ -126,7 +126,7 @@ [made_sub? (\ fs make_directory sub_dir) directory_files (\ fs directory_files parent) sub_directories (\ fs sub_directories parent) - #let [(^open "list\.") (list.equivalence text.equivalence)]] + .let [(^open "list\.") (list.equivalence text.equivalence)]] (in (<| (try.else false) (do try.monad [_ made_sub?] @@ -173,7 +173,7 @@ in (do {! async.monad} [fs (async.future fs) - #let [path (/.rooted fs parent child)] + .let [path (/.rooted fs parent child)] directory?&make_directory (..directory?&make_directory fs parent) @@ -215,7 +215,7 @@ in (do {! async.monad} [fs (async.future fs) - #let [dir/1 (/.rooted fs dir/0 dir/1) + .let [dir/1 (/.rooted fs dir/0 dir/1) dir/2 (/.rooted fs dir/1 dir/2)] pre_dir/0 (\ fs directory? dir/0) pre_dir/1 (\ fs directory? dir/1) |