raboof/liminix
1
0
Fork 0
forked from dan/liminix
Code Pull Requests Activity

improve file-exists? function

Browse Source
This commit is contained in:
Daniel Barlow 2023-06-18 17:41:09 +01:00
parent 80639a7256
commit a65bb9d585
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/acquire-delegated-prefix.fnl
View File

@ -37,10 +37,10 @@
(fn file-exists? [name] (fn file-exists? [name]
(let [f (io.open name :r)] (match (io.open name :r)
(match f f (do (f:close) true)
non-nil (or (f:close) true) _ false))
(nil err) false)))
(fn read-line [name] (fn read-line [name]
(with-open [f (assert (io.open name :r) (.. "can't open file " name))] (with-open [f (assert (io.open name :r) (.. "can't open file " name))]