harvest-as ( seq exemplar -- newseq )


Vocabulary
sequences.extras

Inputs
seqa sequence
exemplaran object


Outputs
newseqa sequence


Word description
Outputs a new sequence with all empty sequences removed. Resulting sequence is the same class as exemplar.

Definition
USING: kernel sequences ;

IN: sequences.extras

: harvest-as ( seq exemplar -- newseq )
[ empty? not ] swap filter-as ;