?2when ( ..a x pred: ( ..a x y quot: ( ..a x y -- ..b ? ) -- ..b x ? ) true: ( ..b x y -- ..c ) -- ..c )

Vocabulary

combinators.extras

Inputs

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

Outputs

None

Definition

IN: combinators.extras

: ?2when
    ( ..a x pred: ( ..a x y quot: ( ..a x y -- ..b ? ) -- ..b x ? ) true: ( ..b x y -- ..c ) -- ..c )
    [ ] ?2if ; inline