vocabs-profile. now omits type predicates

db4
sheeple 2008-02-15 14:16:45 -06:00
parent be9989cf3d
commit 9faee652c8
1 changed files with 3 additions and 1 deletions

View File

@ -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. ;