[Scsh-checkins] CVS: scsh/scsh fileinfo.scm,1.4,1.5

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

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

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/scsh/fileinfo.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** fileinfo.scm        1999/08/06 13:27:57     1.4
--- fileinfo.scm        2001/03/15 03:54:22     1.5
***************
*** 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