define-variant-class ( class -- )

Vocabulary

variants

Inputs

class

an object

Outputs

None

Definition

USING: classes.mixin kernel words ;

IN: variants

: define-variant-class ( class -- )
    [ define-mixin-class ] [ t "variant?" set-word-prop ] bi ;