mes: Add file-exists?.
[mes.git] / 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))