recognize EROFS for file-or-directory-permissions

Closes #1478
2016-12-22 18:10:19 -07:00 · 2016-12-22 18:10:19 -07:00 · d4ec96e35c
commit d4ec96e35c
parent 4bff048fb3
1 changed files with 1 additions and 1 deletions
--- a/racket/src/racket/src/file.c
+++ b/racket/src/racket/src/file.c
@ -6158,7 +6158,7 @@ static Scheme_Object *file_or_dir_permissions(int argc, Scheme_Object *argv[])
         X, at least, such a failure seems to mean that the file is
         not writable. (We assume it's not a directory-access issue,
         since the read test succeeded.) */
-      if (ok && (errno != EACCES) && (errno != EPERM))
+      if (ok && (errno != EACCES) && (errno != EPERM) && (errno != EROFS))
 	l = NULL;
      else {
 	do {