         ] bi
     ] [ ] output>sequence ;
 
+<PRIVATE
 : pad-struct-slots ( values class -- values' class )
     [ struct-slots [ initial>> ] map over length tail append ] keep ;
 


: struct-align ( slots -- align )
    [ c-type>> c-type-align ] [ max ] map-reduce ;

M: struct-class c-type
    name>> c-type ;

: (define-byte-length-method) ( class -- )
    [ \ byte-length create-method-in ]
    [ heap-size \ drop swap [ ] 2sequence ] bi define ;

: slot>field ( slot -- field )
    field-spec new swap {
