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


Vocabulary
sequences

Inputs and outputs
eltan object
quota quotation
accum1a vector
accum2a vector


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-if, pop, pop*, prefix, suffix, suffix!

Definition


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