?2guard ( ..a x y quot: ( ..a x y -- ..b ? ) -- ..b x/f y/f ? )

Vocabulary

combinators.extras

Inputs

x	an object
y	an object
quot	a quotation with stack effect ( ..a x y -- ..b ? )

Outputs

x/f	an object
y/f	an object
?	an object

Definition

USING: kernel ;

IN: combinators.extras

: ?2guard
    ( ..a x y quot: ( ..a x y -- ..b ? ) -- ..b x/f y/f ? )
    2check [ t ] [ 2drop f f f ] if ; inline