specialized-arrays: cleanup using and direct-slice-unsafe.

diff --git a/basis/specialized-arrays/specialized-arrays.factor b/basis/specialized-arrays/specialized-arrays.factor
index b046efaab1dfae218c411f8c214e958673fc108f..7976a5c14865f8b062383393de22f7d97e1642de 100644 (file)
--- a/basis/specialized-arrays/specialized-arrays.factor
+++ b/basis/specialized-arrays/specialized-arrays.factor
@@ -1,11 +1,10 @@
 ! 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
@@ -46,7 +45,6 @@ A          DEFINES-CLASS ${T}-array
 (A)        DEFINES (${A})
 <direct-A> DEFINES <direct-${A}>
 A{         DEFINES ${A}{
-A@         DEFINES ${A}@
 
 WHERE
 
@@ -115,10 +113,8 @@ M: A v*high [ * \ T heap-size neg shift ] 2map ; inline
         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>