scm: Add access?

* module/mes/guile.mes (access?): New dummy function. Fixes Nyacc's #include.
2017-03-31 21:41:32 +02:00 · 2017-03-31 21:41:32 +02:00 · 2c25f45678
parent 091c1ccd31
commit 2c25f45678
1 changed files with 3 additions and 0 deletions
--- 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)