push-map-when* ( ..a elt quot: ( ..a elt -- ..b obj ? ) accum -- ..b )

Vocabulary

sequences.extras.private

Inputs

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

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras.private

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