push-either ( ..a elt quot: ( ..a elt -- ..b ? ) accum1 accum2 -- ..b )

Vocabulary

sequences

Inputs

elt	an object
quot	a quotation
accum1	a vector
accum2	a vector

Outputs

None

Word description

Pushes the input object onto one of the accumulators; the first if the quotation yields true, the second if false.

See also

push, push-when, pop, pop*, prefix, suffix, suffix!

Definition

USING: kernel ;

IN: sequences

: push-either
    ( ..a elt quot: ( ..a elt -- ..b ? ) accum1 accum2 -- ..b )
    [ keep swap ] 2dip ? push ; inline