2check ( obj1 obj2 quot -- obj1 obj2 ? )


Vocabulary
combinators.extras

Inputs
obj1an object
obj2an object
quotan object


Outputs
obj1an object
obj2an object
?an object


Definition
USING: kernel ;

IN: combinators.extras

: 2check ( obj1 obj2 quot -- obj1 obj2 ? )
2over [ call ] 2dip rot ; inline