         bi
     ] "" make ;
 
-: direct-slice-unsafe ( from to seq -- seq' )
-    [ nip nth-c-ptr ]
-    [ drop swap - ]
-    [ 2nip ] 3tri direct-like ; inline
+:: direct-slice-unsafe ( from to seq -- seq' )
+    from seq nth-c-ptr to from - seq 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
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 ;
IN: specialized-arrays

MIXIN: specialized-array

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

WHERE

