1check ( obj quot -- obj ? )


Vocabulary
combinators.extras

Inputs
objan object
quotan object


Outputs
objan object
?an object


Definition
USING: kernel ;

IN: combinators.extras

: 1check ( obj quot -- obj ? ) over [ call ] dip swap ; inline