pad-struct-slots ( values class -- values' class )

Vocabulary

classes.struct.private

Inputs

values	an object
class	an object

Outputs

values'	an object
class	an object

Definition

USING: accessors classes.struct kernel sequences ;

IN: classes.struct.private

: pad-struct-slots ( values class -- values' class )
    [ struct-slots [ initial>> ] map over length tail append ]
    keep ;