define-tuple-class-with-roles ( class roles-and-superclass slots -- )

Vocabulary

roles

Inputs

class	an object
roles-and-superclass	an object
slots	an object

Outputs

None

Definition

USING: classes.tuple kernel sequences ;

IN: roles

: define-tuple-class-with-roles
    ( class roles-and-superclass slots -- )
    [ check-for-slot-overlap ]
    [ roles>slots define-tuple-class ]
    [ drop [ role? ] filter add-to-roles ] 3tri ;