From be514688633cf232a68065d62d146ad9a865caae Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 31 Mar 2010 07:23:19 -0500
Subject: [PATCH] Report the Win32 error code along with the error message

---
 basis/windows/errors/errors.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 basis/windows/errors/errors.factor

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) ;
-- 
2.34.1