]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/windows/errors/errors.factor
Merge branch 'master' of git://factorcode.org/git/factor
[factor.git] / basis / windows / errors / errors.factor
index ea9c297c449f8c0977817375a122ef9c8a445c3b..5a1bf74d19e04a860715b866fa6e8d7a1ff9b73f 100644 (file)
@@ -4,6 +4,8 @@ io.encodings.string io.encodings.utf16n alien.strings
 arrays literals ;
 IN: windows.errors
 
+<< "TCHAR" require-c-arrays >>
+
 CONSTANT: ERROR_SUCCESS                               0
 CONSTANT: ERROR_INVALID_FUNCTION                      1
 CONSTANT: ERROR_FILE_NOT_FOUND                        2
@@ -696,7 +698,7 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK   HEX: 000000FF
 : make-lang-id ( lang1 lang2 -- n )
     10 shift bitor ; inline
 
-<< "TCHAR" require-c-type-arrays >>
+<< "TCHAR" require-c-arrays >>
 
 ERROR: error-message-failed id ;
 :: n>win32-error-string ( id -- string )
@@ -707,7 +709,7 @@ ERROR: error-message-failed id ;
     f
     id
     LANG_NEUTRAL SUBLANG_DEFAULT make-lang-id
-    32768 [ "TCHAR" <c-type-array> ] [ ] bi
+    32768 [ "TCHAR" <c-array> ] [ ] bi
     f pick [ FormatMessage 0 = [ id error-message-failed ] when ] dip
     utf16n alien>string [ blank? ] trim ;