define-global-setter ( type word -- )

Vocabulary
alien.parser

Definition

USING: accessors kernel parser sequences words ;

IN: alien.parser

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