define-variant-member ( member -- class )

Vocabulary

variants

Inputs

member

an object

Outputs

class

an object

Definition

USING: arrays classes.singleton kernel sequences ;

IN: variants

: define-variant-member ( member -- class )
    dup array?
    [ first3 pick [ define-tuple-class-and-boa-word ] dip ]
    [ dup define-singleton-class ] if ;