transmute ( old quot: ( old -- new/f ) -- new/old )

Vocabulary

kernel

Inputs

old	an object
quot	a quotation with stack effect ( old -- new/f )

Outputs

new/old

an object

Definition

IN: kernel

: transmute ( old quot: ( old -- new/f ) -- new/old )
    ?transmute drop ; inline