improve file-exists? function

2023-06-18 17:41:09 +01:00 · 2023-06-18 17:41:09 +01:00 · a65bb9d585
commit a65bb9d585
parent 80639a7256
1 changed files with 4 additions and 4 deletions
--- a/examples/acquire-delegated-prefix.fnl
+++ b/examples/acquire-delegated-prefix.fnl
@ -37,10 +37,10 @@


 (fn file-exists? [name]
-  (let [f (io.open name :r)]
-    (match f
-      non-nil (or (f:close) true)
-      (nil err) false)))
+  (match (io.open name :r)
+    f (do (f:close) true)
+    _ false))
+

 (fn read-line [name]
  (with-open [f (assert (io.open name :r) (.. "can't open file " name))]