define-global-setter ( type word -- )

Vocabulary

alien.parser

Inputs

type	an object
word	an object

Outputs

None

Definition

USING: accessors kernel parser sequences words ;

IN: alien.parser

: define-global-setter ( type word -- )
    [ nip name>> "set-" prepend create-word-in ]
    [ set-global-quot ] 2bi ( obj -- ) define-declared ;