Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / extra / system-info / windows / windows.factor

diff --git a/extra/system-info/windows/windows.factor b/extra/system-info/windows/windows.factor
index 8e0dc60e25f15e712b953e2ee36221d7315e14a8..6576ca6d53b9e173d51e8bc1001bb06235a83130 100755 (executable)
--- a/extra/system-info/windows/windows.factor
+++ b/extra/system-info/windows/windows.factor
@@ -3,7 +3,7 @@
 USING: alien alien.c-types classes.struct accessors kernel
 math namespaces windows windows.kernel32 windows.advapi32 words
 combinators vocabs.loader system-info.backend system
-alien.strings windows.errors ;
+alien.strings windows.errors specialized-arrays.ushort ;
 IN: system-info.windows
 
 : system-info ( -- SYSTEM_INFO )
@@ -49,11 +49,8 @@ IN: system-info.windows
 : sse3? ( -- ? )
     PF_SSE3_INSTRUCTIONS_AVAILABLE feature-present? ;
 
-: <u16-string-object> ( n -- obj )
-    "ushort" <c-array> ;
-
 : get-directory ( word -- str )
-    [ MAX_UNICODE_PATH [ <u16-string-object> ] keep dupd ] dip
+    [ MAX_UNICODE_PATH [ <ushort-array> ] keep dupd ] dip
     execute win32-error=0/f alien>native-string ; inline
 
 : windows-directory ( -- str )