From 9faee652c89bdf852412359c9aa19b6cc66f8f8b Mon Sep 17 00:00:00 2001
From: sheeple <sheeple@joy.internal.stack-effects.com>
Date: Fri, 15 Feb 2008 14:16:45 -0600
Subject: [PATCH] vocabs-profile. now omits type predicates

---
 extra/tools/profiler/profiler.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/tools/profiler/profiler.factor b/extra/tools/profiler/profiler.factor
index 4702431a8f..c35d5a72c8 100755
--- 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. ;