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

Vocabulary

combinators.extras

Inputs

obj1	an object
obj2	an object
quot	an object

Outputs

obj1	an object
obj2	an object
?	an object

Definition

USING: kernel ;

IN: combinators.extras

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