define-boa-word ( word class -- )

Vocabulary

classes.tuple

Inputs

word	an object
class	an object

Outputs

None

Definition

USING: classes kernel words ;

IN: classes.tuple

: define-boa-word ( word class -- )
    tuple-class check-instance
    [ [ boa ] curry ] [ boa-effect ] bi define-inline ;