call-push-when ( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )

Vocabulary

sequences.extras

Inputs

elt	an object
quot	a quotation with stack effect ( ..a elt -- ..b elt' ? )
accum	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

: call-push-when
    ( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )
    [ call ] dip swap [ push ] [ 2drop ] if ; inline