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 559c5e68fdf51c75c75abe5e5528557a39847ba6..93171d47c421fc304391ff8c2ecc184e744c5f0e 100644 (file)
--- 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))))
      ((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)