vocabs-profile. now omits type predicates

2008-02-15 14:16:45 -06:00 · 2008-02-15 14:16:45 -06:00 · 9faee652c8
parent be9989cf3d
commit 9faee652c8
1 changed files with 3 additions and 1 deletions
--- a/extra/tools/profiler/profiler.factor
+++ b/extra/tools/profiler/profiler.factor
@ -59,5 +59,7 @@ M: string (profile.)
 : vocabs-profile. ( -- )
    "Call counts for all vocabularies:" print
    vocabs [
-        dup words [ profile-counter ] map sum
+        dup words
+        [ "predicating" word-prop not ] subset
+        [ profile-counter ] map sum
    ] { } map>assoc counters. ;