steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.info: On my Windows7 box, D: is "not really there" and it kills 

file-systems. Ignore errors instead of dying.
db4
Doug Coleman 2012-09-16 17:23:25 -07:00
parent 1a91e3a8ff
commit 0bdcf5173f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/files/info/windows/windows.factor
View File

@ -182,10 +182,12 @@ CONSTANT: names-buf-length 16384
[ { } ] [ [ alien>native-string ] map ] if-empty [ { } ] [ [ alien>native-string ] map ] if-empty
] with-destructors ; ] with-destructors ;
! Can error with T{ windows-error f 21 "The device is not ready." }
! if there is a D: that is not ready, for instance. Ignore these drives.
M: windows file-systems ( -- array ) M: windows file-systems ( -- array )
find-volumes [ volume>paths ] map concat [ find-volumes [ volume>paths ] map concat [
(file-system-info) [ (file-system-info) ] [ 2drop f ] recover
] map ; ] map sift ;
: file-times ( path -- timestamp timestamp timestamp ) : file-times ( path -- timestamp timestamp timestamp )
[ [