diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor index 684df6191e..052f5058d2 100755 --- a/basis/io/files/info/windows/windows.factor +++ b/basis/io/files/info/windows/windows.factor @@ -5,7 +5,8 @@ io.files.windows io.files.windows.nt kernel windows.kernel32 windows.time windows accessors alien.c-types combinators generalizations system alien.strings io.encodings.utf16n sequences splitting windows.errors fry continuations destructors -calendar ascii combinators.short-circuit locals classes.struct ; +calendar ascii combinators.short-circuit locals classes.struct +specialized-arrays.ushort ; IN: io.files.info.windows :: round-up-to ( n multiple -- n' ) @@ -144,7 +145,7 @@ M: winnt file-system-info ( path -- file-system-info ) calculate-file-system-info ; : volume>paths ( string -- array ) - 16384 "ushort" tuck dup length + 16384 tuck dup length 0 dup [ GetVolumePathNamesForVolumeName 0 = ] dip swap [ win32-error-string throw ] [