specialized-arrays.direct: define byte-length on direct arrays

2009-08-25 18:54:15 -05:00 · 2009-08-25 18:54:15 -05:00 · f4acf22433
parent 005107973f
commit f4acf22433
1 changed files with 2 additions and 0 deletions
--- a/basis/specialized-arrays/direct/functor/functor.factor
+++ b/basis/specialized-arrays/direct/functor/functor.factor
@ -32,6 +32,8 @@ 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 byte-length length>> T heap-size * ;
+
 M: A pprint-delims drop \ A'{ \ } ;

 M: A >pprint-sequence ;