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

inline sequence methods on direct-arrays

db4
Joe Groff 2009-08-26 21:49:45 -05:00
parent ecd0bdbd58
commit 08867f3576
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/specialized-arrays/direct/functor/functor.factor
View File

@ -26,13 +26,13 @@ TUPLE: A
{ length fixnum read-only } ;
: <A> ( alien len -- direct-array ) A boa ; inline
M: A length length>> ;
M: A nth-unsafe underlying>> NTH call ;
M: A set-nth-unsafe underlying>> SET-NTH call ;
M: A like drop dup A instance? [ >A' ] unless ;
M: A new-sequence drop <A'> ;
M: A length length>> ; inline
M: A nth-unsafe underlying>> NTH call ; inline
M: A set-nth-unsafe underlying>> SET-NTH call ; inline
M: A like drop dup A instance? [ >A' ] unless ; inline
M: A new-sequence drop <A'> ; inline
M: A byte-length length>> T heap-size * ;
M: A byte-length length>> T heap-size * ; inline
M: A pprint-delims drop \ A'{ \ } ;