[Scsh-checkins] CVS: scsh-0.6/scsh fileinfo.scm,1.2,1.3

[Olin Shivers <olin-shivers@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv5074

Modified Files:
        fileinfo.scm 
Log Message:
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

Index: fileinfo.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/fileinfo.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** fileinfo.scm        1999/09/23 17:46:43     1.2
--- fileinfo.scm        2001/03/15 03:54:48     1.3
***************
*** 41,45 ****
      (with-errno-handler ((err data)
                         ((errno/acces) 'search-denied)
!                        ((errno/notdir) 'not-directory)
  
                         ;; If the file doesn't exist, we usually return
--- 41,45 ----
      (with-errno-handler ((err data)
                         ((errno/acces) 'search-denied)
!                        ((errno/notdir) 'no-directory)
  
                         ;; If the file doesn't exist, we usually return