push-if* ( ..a elt quot: ( ..a elt -- ..b obj/f ) accum -- ..b )

Vocabulary

sequences.extras

Inputs

elt	an object
quot	a quotation
accum	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

: push-if*
    ( ..a elt quot: ( ..a elt -- ..b obj/f ) accum -- ..b )
    [ call ] dip [ push ] [ drop ] if* ; inline