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

Vocabulary

sequences.extras

Inputs

elt	an object
i	an integer
quot	a quotation
accum	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

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