?2arg ( obj1 obj2 quot: ( obj1 obj2 -- ? ) -- obj1/f obj2/f )

Vocabulary

combinators.extras

Inputs

obj1	an object
obj2	an object
quot	a quotation with stack effect ( obj1 obj2 -- ? )

Outputs

obj1/f	an object
obj2/f	an object

Definition

USING: kernel ;

IN: combinators.extras

: ?2arg
    ( obj1 obj2 quot: ( obj1 obj2 -- ? ) -- obj1/f obj2/f )
    [ ?2res ] 2keepd [ ] 2curry [ f f ] if ; inline