specialized-arrays: performed some cleanup.

[factor.git] / basis / core-foundation / dictionaries / dictionaries.factor

diff --git a/basis/core-foundation/dictionaries/dictionaries.factor b/basis/core-foundation/dictionaries/dictionaries.factor
index fc0e98a2150462aa53de192ed2d8f3fb82076181..f9c27e2147d43132470e3016dae6276f8d6db064 100644 (file)
--- a/basis/core-foundation/dictionaries/dictionaries.factor
+++ b/basis/core-foundation/dictionaries/dictionaries.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax core-foundation kernel assocs
-specialized-arrays math sequences accessors ;
+USING: alien.c-types alien.data alien.syntax core-foundation
+kernel assocs specialized-arrays math sequences accessors ;
 IN: core-foundation.dictionaries
 
 SPECIALIZED-ARRAY: void*
@@ -27,7 +27,7 @@ FUNCTION: void* CFDictionaryGetValue (
 
 : <CFDictionary> ( alist -- dictionary )
     [ kCFAllocatorDefault ] dip
-    unzip [ >void*-array ] bi@
+    unzip [ void* >c-array ] bi@
     [ [ underlying>> ] bi@ ] [ nip length ] 2bi
     &: kCFTypeDictionaryKeyCallBacks
     &: kCFTypeDictionaryValueCallBacks