 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien alien.c-types alien.data alien.parser
-assocs byte-arrays classes compiler.units functors kernel lexer
-libc math math.vectors math.vectors.private namespaces
-parser prettyprint.custom sequences sequences.private strings
-summary vocabs vocabs.loader vocabs.parser vocabs.generated
-words fry combinators make ;
+byte-arrays classes combinators fry functors kernel lexer locals
+make math math.vectors parser prettyprint.custom sequences
+sequences.private vocabs.generated vocabs.loader vocabs.parser
+words ;
 IN: specialized-arrays
 
 MIXIN: specialized-array

        bi
    ] "" make ;

: direct-slice-unsafe ( from to seq -- seq' )
    [ nip nth-c-ptr ]
    [ drop swap - ]
    [ 2nip ] 3tri direct-like ; inline

PRIVATE>


(A)        DEFINES (${A})
<direct-A> DEFINES <direct-${A}>
A{         DEFINES ${A}{

WHERE

