typo in io.files.info.windows

db4
Joe Groff 2009-11-07 22:23:39 -06:00
parent 44109900de
commit 138cdeff54
1 changed files with 1 additions and 1 deletions

View File

@ -177,7 +177,7 @@ M: winnt file-system-info ( path -- file-system-info )
handle buf buf-length FindNextVolume :> ret
ret 0 = [
GetLastError ERROR_NO_MORE_FILES =
[ drop f ] [ win32-error-string throw ] if
[ f ] [ win32-error-string throw ] if
] [
buf utf16n alien>string
] if ;