scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
olin-shivers 2001-03-15 03:54:22 +00:00
parent dae01f4eb7
commit b8d83b88b1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/fileinfo.scm
View File

@ -40,7 +40,7 @@
(let ((uid (user-effective-uid))) (let ((uid (user-effective-uid)))
(with-errno-handler ((err data) (with-errno-handler ((err data)
((errno/acces) 'search-denied) ((errno/acces) 'search-denied)
((errno/notdir) 'not-directory) ((errno/notdir) 'no-directory)
;; If the file doesn't exist, we usually return ;; If the file doesn't exist, we usually return
;; 'nonexistent, but we special-case writability ;; 'nonexistent, but we special-case writability