reject-empty-prefixes ( seq -- seq' )

Vocabulary

help.html

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel sequences vocabs.hierarchy ;

IN: help.html

: reject-empty-prefixes ( seq -- seq' )
    dup no-prefixes
    '[ dup vocab-prefix? [ _ vocabs-beneath? ] [ drop t ] if ]
    filter ;