change-ref ( ref quot -- )

Vocabulary

refs

Inputs

ref	an object
quot	an object

Outputs

None

Definition

USING: kernel ;

IN: refs

: change-ref ( ref quot -- )
    [ [ get-ref ] keep ] dip dip set-ref ; inline