From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 31 Mar 2017 19:41:32 +0000 (+0200)
Subject: scm: Add access?
X-Git-Tag: v0.5~66
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=2c25f45678008a9ae2c717b103e2729f638bb448

scm: Add access?

* module/mes/guile.mes (access?): New dummy function.  Fixes Nyacc's #include.
---

diff --git a/module/mes/guile.mes b/module/mes/guile.mes
index 559c5e68..93171d47 100644
--- a/module/mes/guile.mes
+++ b/module/mes/guile.mes
@@ -124,3 +124,6 @@
      ((eq? c #\*eof*) s)
      (#t (read-string (read-char) (peek-char) (append-char s c)))))
   (list->string (read-string (read-char) (peek-char) (list))))
+
+(define (access? file-name how) #t)
+(define R_OK 0)