Vocabulary
tools.coverage

Inputs and outputs

string	a string
quot	a quotation

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