From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Aug 2009 01:43:07 +0000 (-0500)
Subject: remove c-array usage
X-Git-Tag: 0.97~5635^2~11^2~5
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d2dd2066380f39de31cfd8de9053e63e270fed6b

remove c-array usage
---

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index 8bdbb9f1e9..ea9c297c44 100644
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -696,6 +696,8 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK   HEX: 000000FF
 : make-lang-id ( lang1 lang2 -- n )
     10 shift bitor ; inline
 
+<< "TCHAR" require-c-type-arrays >>
+
 ERROR: error-message-failed id ;
 :: n>win32-error-string ( id -- string )
     {
@@ -705,7 +707,7 @@ ERROR: error-message-failed id ;
     f
     id
     LANG_NEUTRAL SUBLANG_DEFAULT make-lang-id
-    32768 [ "TCHAR" <c-array> ] keep 
+    32768 [ "TCHAR" <c-type-array> ] [ ] bi
     f pick [ FormatMessage 0 = [ id error-message-failed ] when ] dip
     utf16n alien>string [ blank? ] trim ;