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

combinators continuations classes ;
IN: tools.coverage

TUPLE: coverage < identity-tuple executed? ;

C: <coverage> coverage

SYMBOL: covered


    [ reset-coverage ] each-word ;

M: word reset-coverage
    [ dup coverage-state? [ f >>executed? ] when drop ] each-word ;

GENERIC: coverage ( object -- seq )

