Replace "win32-error-string throw" with windows-error instance throwing

[factor.git] / basis / alien / libraries / windows / windows.factor

diff --git a/basis/alien/libraries/windows/windows.factor b/basis/alien/libraries/windows/windows.factor
index 249bcff57a4622aae92cf0db7e412e90bc53790b..03a2e8b8d4825814e6a64376b396db2741fcc965 100644 (file)
--- a/basis/alien/libraries/windows/windows.factor
+++ b/basis/alien/libraries/windows/windows.factor
@@ -1,8 +1,9 @@
-USING: alien.libraries io.pathnames system windows.errors ;
+USING: alien.libraries io.pathnames system windows.errors
+windows.kernel32 ;
 IN: alien.libraries.windows
 
 M: windows >deployed-library-path
     file-name ;
 
 M: windows dlerror ( -- message )
-    win32-error-string ;
+    GetLastError n>win32-error-string ;