From ef788355015be0aad69ba6aad3945313799f80d1 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 11 Nov 2018 10:14:50 +0100
Subject: [PATCH] mes: Add file-exists?.

* mes/module/mes/guile.mes (file-exists?): New function.
---
 mes/module/mes/guile.mes | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/mes/module/mes/guile.mes b/mes/module/mes/guile.mes
index a730bdd9..4e897b4b 100644
--- 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))