check_files.scm 200 B

1234567891011121314
  1. (define file?
  2. (λ (path)
  3. (access? path F_OK)))
  4. (define readable?
  5. (λ (path)
  6. (access? path R_OK)))
  7. (define readable-file?
  8. (λ (path)
  9. (and (readable? path)
  10. (file? path))))