push-index-if ( ..a elt i quot: ( ..a elt -- ..b ? ) accum -- ..b )

Vocabulary

sequences.extras.private

Inputs

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

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras.private

: push-index-if
    ( ..a elt i quot: ( ..a elt -- ..b ? ) accum -- ..b )
    [ dip ] dip rot [ push ] [ 2drop ] if ; inline