windows.errors: fix #987

db4
Björn Lindqvist 2014-02-11 18:56:09 +01:00 committed by John Benediktsson
parent 2fe03b6711
commit 3715bb6b9a
1 changed files with 2 additions and 2 deletions

View File

@ -706,7 +706,7 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK 0x000000FF
:: n>win32-error-string ( id -- string )
flags{
FORMAT_MESSAGE_FROM_SYSTEM
FORMAT_MESSAGE_ARGUMENT_ARRAY
FORMAT_MESSAGE_IGNORE_INSERTS
}
f
id
@ -739,7 +739,7 @@ ERROR: windows-error n string ;
] [
dup n>win32-error-string windows-error
] if ;
: throw-win32-error ( -- * )
win32-error-string throw ;