specialized-arrays: performed some cleanup.

[factor.git] / basis / windows / streams / streams.factor

diff --git a/basis/windows/streams/streams.factor b/basis/windows/streams/streams.factor
index 2f3eef6324488709ec8d22f3f7a347e467e18e78..1109692168a284116561b5b46d58055b350b13ed 100644 (file)
--- a/basis/windows/streams/streams.factor
+++ b/basis/windows/streams/streams.factor
@@ -1,6 +1,6 @@
-USING: accessors alien.c-types classes.struct combinators\r
-continuations io kernel libc literals locals sequences\r
-specialized-arrays windows.com memoize\r
+USING: accessors alien.c-types alien.data classes.struct\r
+combinators continuations io kernel libc literals locals\r
+sequences specialized-arrays windows.com memoize\r
 windows.com.wrapper windows.kernel32 windows.ole32\r
 windows.types ;\r
 IN: windows.streams\r
@@ -24,7 +24,7 @@ SPECIALIZED-ARRAY: uchar
 \r
 :: IStream-write ( stream pv cb out-written -- hresult )\r
     [\r
-        pv cb <direct-uchar-array> stream stream-write\r
+        pv cb uchar <c-direct-array> stream stream-write\r
         out-written [ cb out-written 0 ULONG set-alien-value ] when\r
         S_OK\r
     ] with-hresult ; inline\r