classes.struct: inline M\ struct byte-length.

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 697681de079efbf5f9797fd6db84509e36dd953b..c90ae52211960b70b0043c2ac814dea702757a0d 100644 (file)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -250,7 +250,7 @@ M: struct-bit-slot-spec compute-slot-offset
 
 PRIVATE>
 
-M: struct byte-length class-of "struct-size" word-prop ; foldable
+M: struct byte-length class-of "struct-size" word-prop ; inline foldable
 M: struct binary-zero? binary-object uchar <c-direct-array> [ 0 = ] all? ; inline
 
 ! class definition