Fix vocab filtering in profiler

2009-01-12 22:17:39 -06:00 · 2009-01-12 22:17:39 -06:00 · d0a3442b30
parent 79548f5963
commit d0a3442b30
1 changed files with 7 additions and 1 deletions
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@ -49,7 +49,13 @@ M: method-renderer row-value drop first ;
 : <words-model> ( profiler -- model )
    [
        [ words>> ] [ vocab>> ] bi
-        [ [ [ first vocabulary>> ] dip = ] when* ] <search>
+        [
+            [
+                [ first vocabulary>> ]
+                [ vocab-name ]
+                bi* =
+            ] when*
+        ] <search>
    ] keep <profiler-model> ;

 : match? ( pair/f str -- ? )