From 51f708cda4200af6987091528435f575d9d8164c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 21 Sep 2012 11:50:45 -0700 Subject: [PATCH] classes.struct: inline M\ struct byte-length. --- basis/classes/struct/struct.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 697681de07..c90ae52211 100644 --- 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 [ 0 = ] all? ; inline ! class definition