From 2c25f45678008a9ae2c717b103e2729f638bb448 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 31 Mar 2017 21:41:32 +0200 Subject: [PATCH] scm: Add access? * module/mes/guile.mes (access?): New dummy function. Fixes Nyacc's #include. --- module/mes/guile.mes | 3 +++ 1 file changed, 3 insertions(+) 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)