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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-11-11 15:37:42 -06:00
parent fa282c5053 1f85b7ec14
commit 5490b730b5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/io/windows/files/files.factor
View File

@ -300,7 +300,7 @@ M: winnt file-system-info ( path -- file-system-info )
utf16n alien>string
] if ;
M: winnt file-systems ( -- array )
: find-volumes ( -- array )
find-first-volume
[
'[
@ -309,8 +309,14 @@ M: winnt file-systems ( -- array )
[ drop ] produce
swap prefix
]
] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi [ ] cleanup
[ volume>paths ] map ;
] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi [ ] cleanup ;
M: winnt file-systems ( -- array )
find-volumes [ volume>paths ] map
concat [
[ file-system-info ]
[ drop winnt-file-system-info new swap >>mount-point ] recover
] map ;
: file-times ( path -- timestamp timestamp timestamp )
[