]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/windows/errors/errors.factor
Use flags{ instead of flags all over the place
[factor.git] / basis / windows / errors / errors.factor
index 67757d05d2df03318dcd0cda8892f282c21b551e..a22b6ec007ca978e913746501aee17b371039c90 100755 (executable)
@@ -1,7 +1,7 @@
 USING: alien.data kernel locals math math.bitwise
 windows.kernel32 sequences byte-arrays unicode.categories
 io.encodings.string io.encodings.utf16n alien.strings
-arrays literals windows.types specialized-arrays ;
+arrays literals windows.types specialized-arrays literals ;
 SPECIALIZED-ARRAY: TCHAR
 IN: windows.errors
 
@@ -705,10 +705,10 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK   HEX: 000000FF
 
 ERROR: error-message-failed id ;
 :: n>win32-error-string ( id -- string )
-    {
+    flags{
         FORMAT_MESSAGE_FROM_SYSTEM
         FORMAT_MESSAGE_ARGUMENT_ARRAY
-    } flags
+    }
     f
     id
     LANG_NEUTRAL SUBLANG_DEFAULT make-lang-id