byte-length method for struct-arrays

2009-07-07 15:11:04 -05:00 · 2009-07-07 15:11:04 -05:00 · 01d344fb46
parent 865e37f590
commit 01d344fb46
1 changed files with 1 additions and 0 deletions
--- a/basis/struct-arrays/struct-arrays.factor
+++ b/basis/struct-arrays/struct-arrays.factor
@ -10,6 +10,7 @@ TUPLE: struct-array
 { element-size array-capacity read-only } ;

 M: struct-array length length>> ;
+M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ;

 M: struct-array nth-unsafe
    [ element-size>> * ] [ underlying>> ] bi <displaced-alien> ;