define-attributes-word ( word tuple -- )

Vocabulary

game.worlds

Inputs

word	an object
tuple	an object

Outputs

None

Definition

USING: accessors kernel parser sequences words.constant ;

IN: game.worlds

: define-attributes-word ( word tuple -- )
    [ name>> "-attributes" append create-word-in ] dip
    define-constant ;