harvest ( seq -- newseq )


Vocabulary
sequences

Inputs and outputs
seqa sequence
newseqa sequence


Word description
Outputs a new sequence with all empty sequences removed.

Examples
USING: prettyprint sequences ; { { } { 2 3 } { 5 } { } } harvest .
{ { 2 3 } { 5 } }


See also
filter, filter-as, filter!, reject, reject-as, reject!, sift

Definition

: harvest ( seq -- newseq ) [ empty? ] reject ;