     [ count-callables ] map-words sum ;
 
 M: word count-callables
-    "coverage" word-prop assoc-size ;
+    def>> [ callable? ] deep-filter length ;
 
 PRIVATE>
 

quotations sequences sequences.deep splitting strings
tools.annotations vocabs words arrays words.symbol
combinators.short-circuit values tools.test
combinators continuations ;
IN: tools.coverage

TUPLE: coverage < identity-tuple executed? ;

    ".private" ?tail drop ".private" append ;

: coverage-words ( string -- words )
    words [ { [ primitive? not ] [ symbol? not ] [ predicate? not ] } 1&& ] filter ;

PRIVATE>

