scm: Add access?
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 31 Mar 2017 19:41:32 +0000 (21:41 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 31 Mar 2017 19:41:32 +0000 (21:41 +0200)
* module/mes/guile.mes (access?): New dummy function.  Fixes Nyacc's #include.

module/mes/guile.mes

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