define-role ( class superroles slots -- )

Vocabulary

roles

Inputs

class	an object
superroles	an object
slots	an object

Outputs

None

Definition

USING: kernel ;

IN: roles

: define-role ( class superroles slots -- )
    [ check-for-slot-overlap ] [ (define-role) ]
    [ drop add-to-roles ] 3tri ;