classes.struct: factoring struct-size out.

2013-04-24 21:00:37 -07:00 · 2013-04-24 21:00:37 -07:00 · df8c370e17
parent 4afec99e97
commit df8c370e17
1 changed files with 3 additions and 1 deletions
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@ -250,7 +250,9 @@ M: struct-bit-slot-spec compute-slot-offset

 PRIVATE>

-M: struct byte-length class-of "struct-size" word-prop ; inline foldable
+: struct-size ( class -- n ) "struct-size" word-prop ; inline
+
+M: struct byte-length class-of struct-size ; inline foldable
 M: struct binary-zero? binary-object uchar <c-direct-array> [ 0 = ] all? ; inline

 ! class definition