?2res ( ..a obj1 obj2 quot: ( obj1 obj2 -- ? ) -- ..b )

Vocabulary

combinators.extras

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: combinators.extras

: ?2res ( ..a obj1 obj2 quot: ( obj1 obj2 -- ? ) -- ..b )
    [ 2dup and ] dip [ 2drop f ] if ; inline