From: Björn Lindqvist Date: Tue, 11 Feb 2014 17:56:09 +0000 (+0100) Subject: windows.errors: fix #987 X-Git-Tag: 0.97~827 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3715bb6b9a3f21bdebf1c916f094310bbed48677 windows.errors: fix #987 --- diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor index d59315a3c7..fca62c85be 100755 --- a/basis/windows/errors/errors.factor +++ b/basis/windows/errors/errors.factor @@ -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 ;