From 94553d1c36c8dd78d7e5982a89f68eb2b65cb73d Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Thu, 15 Mar 2001 03:54:48 +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 9ec09ef..24214f5 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