steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2014-11-29 20:02:51 -08:00
parent e41dea63e7
commit b597c6b329
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/specialized-arrays/specialized-arrays.factor
View File

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