core-foundation.launch-services: use <c-array>.

diff --git a/basis/core-foundation/launch-services/launch-services.factor b/basis/core-foundation/launch-services/launch-services.factor
index 77a984e75ac09a01f923ab3ff3fbda1befebee5e..cc72a8013c89735dc326358dc6c2647317c2804d 100644 (file)
--- a/basis/core-foundation/launch-services/launch-services.factor
+++ b/basis/core-foundation/launch-services/launch-services.factor
@@ -1,9 +1,10 @@
 ! Copyright (C) 2011 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.syntax classes.struct continuations core-foundation
-core-foundation.strings core-foundation.urls destructors kernel
-sequences specialized-arrays.instances.alien.c-types.char
-strings unix.ffi ;
+USING: alien.c-types alien.data alien.syntax classes.struct
+continuations core-foundation core-foundation.strings
+core-foundation.urls destructors kernel sequences
+specialized-arrays strings unix.ffi ;
+SPECIALIZED-ARRAY: char
 IN: core-foundation.launch-services
 
 FUNCTION: OSStatus LSFindApplicationForInfo (
@@ -116,7 +117,7 @@ ERROR: core-foundation-error n ;
     dup 0 = [ drop ] [ core-foundation-error ] if ;
 
 : fsref>string ( fsref -- string )
-    MAXPATHLEN [ <char-array> ] [ ] bi
+    MAXPATHLEN [ char <c-array> ] [ ] bi
     [ FSRefMakePath cf-error ] [ drop ] 2bi
     [ 0 = ] trim-tail >string ;