add-to-roles ( class roles -- )

Vocabulary

roles

Inputs

class	an object
roles	an object

Outputs

None

Definition

USING: classes.mixin kernel sequences ;

IN: roles

: add-to-roles ( class roles -- )
    [ add-mixin-instance ] with each ;