harvest! ( seq -- newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence

Outputs

newseq

a sequence

Word description

Outputs a new sequence with all empty sequences removed. Modifies seqin place.

Definition

USING: sequences ;

IN: sequences.extras

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