steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.deploy: fix test 11

db4
Slava Pestov 2009-09-24 13:00:26 -05:00
parent 0686a7a65c
commit beab46517e
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/classes/struct/struct.factor
View File

@ -202,7 +202,7 @@ M: struct-c-type c-struct? drop t ;
[ type>> c-type-align ] [ max ] map-reduce ; [ type>> c-type-align ] [ max ] map-reduce ;
PRIVATE> PRIVATE>
M: struct byte-length class "c-type" word-prop size>> ; foldable M: struct byte-length class "struct-size" word-prop ; foldable
! class definition ! class definition
@ -253,6 +253,7 @@ M: struct binary-zero?
c-type class typedef c-type class typedef
class slot-specs define-accessors class slot-specs define-accessors
class size "struct-size" set-word-prop
class dup make-struct-prototype "prototype" set-word-prop class dup make-struct-prototype "prototype" set-word-prop
class (struct-methods) ; inline class (struct-methods) ; inline
PRIVATE> PRIVATE>

2
basis/tools/deploy/shaker/shaker.factor
View File

@ -198,7 +198,7 @@ IN: tools.deploy.shaker
] when ] when
deploy-c-types? get [ deploy-c-types? get [
{ "c-type" "struct-slots" "struct-size" "struct-align" } % { "c-type" "struct-slots" "struct-align" } %
] unless ] unless
] { } make ; ] { } make ;