?3unless ( ..a x y z pred: ( ..a x quot: ( ..a x y z -- ..b ? ) -- ..b x ? ) false: ( ..b x y z -- ..c ) -- ..c )

Vocabulary

combinators.extras

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: combinators.extras

: ?3unless
    ( ..a x y z pred: ( ..a x quot: ( ..a x y z -- ..b ? ) -- ..b x ? ) false: ( ..b x y z -- ..c ) -- ..c )
    [ ] swap ?3if ; inline