     [ reset-coverage ] each-word ;
 
 M: word reset-coverage
-    [ dup coverage? [ f >>executed? ] when drop ] each-word ;
+    [ dup coverage-state? [ f >>executed? ] when drop ] each-word ;
 
 GENERIC: coverage ( object -- seq )
 

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


combinators continuations classes ;
IN: tools.coverage

TUPLE: coverage-state < identity-tuple executed? ;

C: <coverage-state> coverage-state

SYMBOL: covered

