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

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

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

PRIVATE>


    ] bi ;

: %coverage ( string -- x )
    [ test-coverage values concat length ]
    [ count-callables ] bi [ swap - ] keep /f ; inline
