[Scsh-hackers] delete-filesys-object can't delete directories, 0.5.3 linux 2.4

["Brian D. Carlstrom" <bdc@zurich.ai.mit.edu>]

Is everyone fine with this? I'll checkin to 0.5.4 and 0.6

-bri


Gary Houston writes:
 > This isn't new in 0.5.3, but delete-filesys-object can't remove
 > directories on linux:
 > 
 > $ scsh
 > Scsh 0.5.3
 > > (create-directory "d")
 > > (delete-filesys-object "d")
 > 
 > Error: 21
 >        "Is a directory"
 >        #{Procedure 9993 delete-file}
 >        "d"
 > 
 > delete-file fails with errno/isdir but the handler in
 > delete-filesys-object checks for errno/perm.


[bdc@redrum scsh]$ cvs diff -c filesys.scm
bdc@cvs.scsh.sourceforge.net's password: !secure

Index: filesys.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/filesys.scm,v
retrieving revision 1.3
diff -c -r1.3 filesys.scm
*** filesys.scm 1999/08/06 13:27:58     1.3
--- filesys.scm 2001/06/11 02:17:32
***************
*** 16,22 ****
    (let loop ()
      (or (with-errno-handler ; Assume it's a file and try.
            ((err data)
!            ((errno/perm) #f) ; Return #f if directory
             ((errno/noent) #t))
            (delete-file fname)
            #t)
--- 16,22 ----
    (let loop ()
      (or (with-errno-handler ; Assume it's a file and try.
            ((err data)
!            ((errno/isdir errno/perm) #f) ; Return #f if directory
             ((errno/noent) #t))
            (delete-file fname)
            #t)
[bdc@redrum scsh]$