initialize-alien ( symbol quot -- )

Vocabulary

alien

Inputs

symbol	an object
quot	an object

Outputs

None

Definition

USING: accessors alien.private kernel namespaces ;

IN: alien

: initialize-alien ( symbol quot -- )
    swap dup get-global dup recompute-value? [
        drop [ call dup 31337 <alien> expiry-check boa ] dip
        set-global
    ] [ 2nip object>> ] if ; inline