define-tuple-class-and-boa-word ( class superclass slots -- )

Vocabulary

variants

Inputs

class	an object
superclass	an object
slots	an object

Outputs

None

Definition

USING: accessors classes.tuple kernel parser sequences ;

IN: variants

: define-tuple-class-and-boa-word
    ( class superclass slots -- )
    pick [ define-tuple-class ] dip dup name>> "<" ">" surround
    create-word-in swap define-boa-word ;