PRIVATE>
-M: winnt file-system-info ( path -- file-system-info )
+M: windows file-system-info ( path -- file-system-info )
normalize-path root-directory (file-system-info) ;
CONSTANT: names-buf-length 16384
]
] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi [ ] cleanup ;
-M: winnt file-systems ( -- array )
+M: windows file-systems ( -- array )
find-volumes [ volume>paths ] map
concat [
[ (file-system-info) ]