more inlines on struct-arrays to make the optimizing go down smoother

diff --git a/basis/struct-arrays/struct-arrays.factor b/basis/struct-arrays/struct-arrays.factor
index 0f03c582120ff44e3199f0059c579032d2699e32..97d952f845e3aeafb69626cece2d0ba127417474 100755 (executable)
--- a/basis/struct-arrays/struct-arrays.factor
+++ b/basis/struct-arrays/struct-arrays.factor
@@ -13,8 +13,8 @@ TUPLE: struct-array
 { element-size array-capacity read-only }
 { class read-only } ;
 
-M: struct-array length length>> ;
-M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ;
+M: struct-array length length>> ; inline
+M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ; inline
 
 : (nth-ptr) ( i struct-array -- alien )
     [ element-size>> * ] [ underlying>> ] bi <displaced-alien> ; inline
@@ -23,7 +23,7 @@ M: struct-array nth-unsafe
     [ (nth-ptr) ] [ class>> dup struct-class? ] bi [ memory>struct ] [ drop ] if ; inline
 
 M: struct-array set-nth-unsafe
-    [ (nth-ptr) swap ] [ element-size>> ] bi memcpy ;
+    [ (nth-ptr) swap ] [ element-size>> ] bi memcpy ; inline
 
 M: struct-array new-sequence
     [ element-size>> [ * <byte-array> ] 2keep ]