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

        bi
    ] "" make ;

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

PRIVATE>


! 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
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
