map-words ( string quot -- sequence ) (original) (raw)
map-words ( string quot -- sequence )
Coverage tool
| Prev: | each-word ( string quot -- ) |
|---|
Inputs
| string | a string |
|---|---|
| quot | a quotation |
Outputs
| sequence | a sequence |
|---|
Word description
Calls a quotation on every word in the vocabulary and its private vocabulary, if there is one, and collects the results.
Definition
USING: kernel sequences tools.coverage.private ;
: map-words ( string quot -- sequence )
over ".private" tail?
[ [ coverage-words ] dip map ] [
[ [ private-vocab-name coverage-words ] dip map ]
[ [ coverage-words ] dip map ] 2bi append
] if ; inline