byte-length for struct-vectors

2009-07-07 15:30:41 -05:00 · 2009-07-07 15:30:41 -05:00 · 84485d36ee
parent b42a1cc746
commit 84485d36ee
1 changed files with 1 additions and 0 deletions
--- a/basis/struct-vectors/struct-vectors.factor
+++ b/basis/struct-vectors/struct-vectors.factor
@ -12,6 +12,7 @@ TUPLE: struct-vector
 : <struct-vector> ( capacity c-type -- struct-vector )
    [ <struct-array> 0 ] keep struct-vector boa ; inline

+M: struct-vector byte-length underlying>> byte-length ;
 M: struct-vector new-sequence
    [ c-type>> <struct-array> ] [ [ >fixnum ] [ c-type>> ] bi* ] 2bi
    struct-vector boa ;