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


Vocabulary
kernel

Inputs
oldan object
quota quotation with stack effect ( old -- new/f )


Outputs
new/oldan object
new?an object


Definition

: ?transmute ( old quot: ( old -- new/f ) -- new/old new? )
keep over [ drop t ] [ nip f ] if ; inline