From b8d83b88b1ca100db48fc00c9e9355f3e4bcd37d Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Thu, 15 Mar 2001 03:54:22 +0000 Subject: [PATCH] Manual says FILE-NOT-READABLE? and brothers return 'NO-DIRECTORY if some dir in the path isn't there; code returned 'NOT-DIRECTORY. Manual was right; code was wrong. -Olin --- scsh/fileinfo.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/fileinfo.scm b/scsh/fileinfo.scm index e502428..c2d7afb 100644 --- a/scsh/fileinfo.scm +++ b/scsh/fileinfo.scm @@ -40,7 +40,7 @@ (let ((uid (user-effective-uid))) (with-errno-handler ((err data) ((errno/acces) 'search-denied) - ((errno/notdir) 'not-directory) + ((errno/notdir) 'no-directory) ;; If the file doesn't exist, we usually return ;; 'nonexistent, but we special-case writability