vocabs-profile. now omits type predicates

diff --git a/extra/tools/profiler/profiler.factor b/extra/tools/profiler/profiler.factor
index 4702431a8f31b418b5105357019ec6658e9400da..c35d5a72c813974d3bb6e10971735aa64741ccb1 100755 (executable)
--- 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. ;