each-word ( string quot -- )
Coverage tool

Prev:	test-coverage ( vocab -- coverage )
Next:	map-words ( string quot -- sequence )

Vocabulary
tools.coverage

Inputs

string	a string
quot	a quotation

Outputs
None

Word description
Calls a quotation on every word in the vocabulary and its private vocabulary, if there is one.

Definition

USING: kernel sequences tools.coverage.private ;

IN: tools.coverage

: each-word ( string quot -- )
    over ".private" tail?
    [ [ coverage-words ] dip each ] [
        [ [ private-vocab-name coverage-words ] dip each ]
        [ [ coverage-words ] dip each ] 2bi
    ] if ; inline