2push-map-when ( ..a filter-quot: ( ..a -- ..b ? ) map-quot: ( ..a -- ..b obj ) accum -- ..b )

Vocabulary

sequences.extras.private

Inputs

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

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras.private

: 2push-map-when
    ( ..a filter-quot: ( ..a -- ..b ? ) map-quot: ( ..a -- ..b obj ) accum -- ..b )
    [ 2check ] 2dip [ push ] curry compose
    [ [ 2drop ] if ] curry call ; inline