typo in io.files.info.windows
parent
44109900de
commit
138cdeff54
|
@ -177,7 +177,7 @@ M: winnt file-system-info ( path -- file-system-info )
|
||||||
handle buf buf-length FindNextVolume :> ret
|
handle buf buf-length FindNextVolume :> ret
|
||||||
ret 0 = [
|
ret 0 = [
|
||||||
GetLastError ERROR_NO_MORE_FILES =
|
GetLastError ERROR_NO_MORE_FILES =
|
||||||
[ drop f ] [ win32-error-string throw ] if
|
[ f ] [ win32-error-string throw ] if
|
||||||
] [
|
] [
|
||||||
buf utf16n alien>string
|
buf utf16n alien>string
|
||||||
] if ;
|
] if ;
|
||||||
|
|
Loading…
Reference in New Issue