mes: Add file-exists?.

* mes/module/mes/guile.mes (file-exists?): New function.
2018-11-11 10:14:50 +01:00 · 2018-11-11 10:14:50 +01:00 · e0a2d540f4
parent e95c5742be
commit e0a2d540f4
1 changed files with 4 additions and 0 deletions
--- a/mes/module/mes/guile.mes
+++ b/mes/module/mes/guile.mes
@ -137,4 +137,8 @@
    (if destination (simple-format lst rest)
        (with-output-to-string
          (lambda () (simple-format lst rest))))))
+
 (define format simple-format)
+
+(define (file-exists? o)
+  (access? o R_OK))