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

2012-09-21 11:50:45 -07:00 · 2012-09-21 11:50:45 -07:00 · 51f708cda4
parent f70932040d
commit 51f708cda4
1 changed files with 1 additions and 1 deletions
--- 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