From beab46517e9654de98056cf24ef3276484d5179a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 24 Sep 2009 13:00:26 -0500 Subject: [PATCH] tools.deploy: fix test 11 --- basis/classes/struct/struct.factor | 3 ++- basis/tools/deploy/shaker/shaker.factor | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 1b6d765ef2..22a80776e7 100755 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -202,7 +202,7 @@ M: struct-c-type c-struct? drop t ; [ type>> c-type-align ] [ max ] map-reduce ; PRIVATE> -M: struct byte-length class "c-type" word-prop size>> ; foldable +M: struct byte-length class "struct-size" word-prop ; foldable ! class definition @@ -253,6 +253,7 @@ M: struct binary-zero? c-type class typedef class slot-specs define-accessors + class size "struct-size" set-word-prop class dup make-struct-prototype "prototype" set-word-prop class (struct-methods) ; inline PRIVATE> diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor index 2b4c38beaf..825b6f9c54 100755 --- a/basis/tools/deploy/shaker/shaker.factor +++ b/basis/tools/deploy/shaker/shaker.factor @@ -198,7 +198,7 @@ IN: tools.deploy.shaker ] when deploy-c-types? get [ - { "c-type" "struct-slots" "struct-size" "struct-align" } % + { "c-type" "struct-slots" "struct-align" } % ] unless ] { } make ;