2push-when ( ..a elt1 elt2 quot: ( ..a elt1 elt2 -- ..b ? ) accum -- ..b )

Vocabulary

sequences.extras

Inputs

elt1	an object
elt2	an object
quot	a quotation with stack effect ( ..a elt1 elt2 -- ..b ? )
accum	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

: 2push-when
    ( ..a elt1 elt2 quot: ( ..a elt1 elt2 -- ..b ? ) accum -- ..b )
    [ keepd ] dip rot [ push ] [ 2drop ] if ; inline