Fix iota bug in io.files.info.windows

db4
Doug Coleman 2010-01-15 21:17:47 -06:00
parent 9131e16f7b
commit 00f58f81e1
1 changed files with 1 additions and 1 deletions

View File

@ -162,7 +162,7 @@ M: winnt file-system-info ( path -- file-system-info )
ret win32-error-string throw ret win32-error-string throw
] [ ] [
names names-length *uint ushort heap-size * head names names-length *uint ushort heap-size * head
utf16n alien>string CHAR: \0 split utf16n alien>string { CHAR: \0 } split
] if ; ] if ;
: find-first-volume ( -- string handle ) : find-first-volume ( -- string handle )