define-typed-global ( word type -- )

Vocabulary

variables

Inputs

word	an object
type	an object

Outputs

None

Definition

USING: kernel slots words ;

IN: variables

: define-typed-global ( word type -- )
    2dup "variable-type" set-word-prop dup initial-value drop
    global-box boa swap
    [ [ [global-getter] ] dip [typed-getter] ]
    [ [ [global-setter] ] dip [typed-setter] ] 2bi
    (define-variable) ;