From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 31 Mar 2010 12:23:19 +0000 (-0500)
Subject: Report the Win32 error code along with the error message
X-Git-Tag: 0.97~4723^2~33
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=be514688633cf232a68065d62d146ad9a865caae

Report the Win32 error code along with the error message
---

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
old mode 100644
new mode 100755
index c5dedb090a..67757d05d2
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -719,8 +719,10 @@ ERROR: error-message-failed id ;
 : win32-error-string ( -- str )
     GetLastError n>win32-error-string ;
 
+ERROR: windows-error n string ;
+
 : (win32-error) ( n -- )
-    [ win32-error-string throw ] unless-zero ;
+    [ dup win32-error-string windows-error ] unless-zero ;
 
 : win32-error ( -- )
     GetLastError (win32-error) ;