windows.errors: make check-invalid-handle throw windows-error instances
There are two consequences: - the thrown object is now a windows-error, previously it was a string; - if GetLastError returns zero, nothing is thrown. Previously the string "The operation completed successfully." was thrown in that case.fix-linux
parent
99df1effea
commit
38ab7289b5
|
@ -744,7 +744,7 @@ ERROR: windows-error n string ;
|
||||||
win32-error-string throw ;
|
win32-error-string throw ;
|
||||||
|
|
||||||
: check-invalid-handle ( handle -- handle )
|
: check-invalid-handle ( handle -- handle )
|
||||||
dup INVALID_HANDLE_VALUE = [ throw-win32-error ] when ;
|
dup INVALID_HANDLE_VALUE = [ win32-error ] when ;
|
||||||
|
|
||||||
CONSTANT: expected-io-errors
|
CONSTANT: expected-io-errors
|
||||||
${
|
${
|
||||||
|
|
Loading…
Reference in New Issue