map-harvest ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

newseq

a sequence

Word description

A version of map with all empty sequences removed from the result.

Definition

USING: kernel sequences ;

IN: sequences.extras

: map-harvest
    ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq )
    [ empty? not ] map-filter ; inline