(define-role) ( class superroles slots -- )

Vocabulary

roles

Inputs

class	an object
superroles	an object
slots	an object

Outputs

None

Definition

USING: classes.mixin kernel words ;

IN: roles

: (define-role) ( class superroles slots -- )
    [ "superroles" set-word-prop ]
    [ "role-slots" set-word-prop ] bi-curry*
    [ define-mixin-class ] tri ;