specialized-arrays: performed some cleanup.

[factor.git] / basis / tools / deploy / libraries / windows / windows.factor

diff --git a/basis/tools/deploy/libraries/windows/windows.factor b/basis/tools/deploy/libraries/windows/windows.factor
index 4698754f074952727d6b7851b44d637deca7030f..82fd5179fa154bd30c666a65c1e0e5921bea710c 100644 (file)
--- a/basis/tools/deploy/libraries/windows/windows.factor
+++ b/basis/tools/deploy/libraries/windows/windows.factor
@@ -1,7 +1,7 @@
 ! (c)2010 Joe Groff bsd license
-USING: alien.strings byte-arrays io.encodings.utf16n kernel
-specialized-arrays system tools.deploy.libraries windows.kernel32
-windows.types ;
+USING: alien.data alien.strings byte-arrays io.encodings.utf16n
+kernel specialized-arrays system tools.deploy.libraries
+windows.kernel32 windows.types ;
 FROM: alien.c-types => ushort ;
 SPECIALIZED-ARRAY: ushort
 IN: tools.deploy.libraries.windows
@@ -9,7 +9,7 @@ IN: tools.deploy.libraries.windows
 M: windows find-library-file
     f DONT_RESOLVE_DLL_REFERENCES LoadLibraryEx [
         [
-            32768 (ushort-array) [ 32768 GetModuleFileName drop ] keep
+            32768 ushort (c-array) [ 32768 GetModuleFileName drop ] keep
             utf16n alien>string
         ] [ FreeLibrary drop ] bi
     ] [ f ] if* ;