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

Vocabulary

kernel

Inputs

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

Outputs

new/old	an object
new?	an object

Definition

IN: kernel

: ?transmute ( old quot: ( old -- new/f ) -- new/old new? )
    keep swap or? ; inline