add-coverage ( object -- )
Coverage tool
Next:remove-coverage ( object -- )


Vocabulary
tools.coverage

Inputs and outputs
objectan object


Word description
Recompiles a vocabulary with the coverage annotation. Note that the annotation tool is still disabled until you call coverage-on.

Definition
IN: tools.coverage

GENERIC: add-coverage ( object -- )


Methods
USING: strings tools.coverage ;

M: string add-coverage [ add-coverage ] each-word ;


USING: assocs kernel sequences tools.annotations tools.coverage
words ;

M: word add-coverage
H{ } clone [ "coverage" set-word-prop ] 2keep
[ set-at ] curry [ [ \ coverage-state new ] ] dip
[ 2keep [ flag-covered ] curry prepend ] curry compose
deep-annotate ;