mes: Add file-exists?.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:14:50 +0000 (10:14 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:14:50 +0000 (10:14 +0100)
* mes/module/mes/guile.mes (file-exists?): New function.

mes/module/mes/guile.mes

index a730bdd97370ff15a5abbcfaf23c57e1b189cf62..4e897b4be8f2286fe339cde2139418c253db29eb 100644 (file)
     (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))