use reject instead of [ ... not ] filter.

[factor.git] / basis / tools / profiler / sampling / sampling.factor

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index d90efdaafe5aaeb2465a88e44880c0d21f2b881d..c874aeb6bff77dab7201bd22ceeb0aa79a09111f 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -95,7 +95,7 @@ CONSTANT: zero-counts { 0 0 0 0 0 }
 
 :: (collect-subtrees) ( samples max-depth depth child-quot: ( samples -- child ) -- children )
     max-depth depth > [
-        samples [ sample-callstack leaf-callstack? not ] filter
+        samples [ sample-callstack leaf-callstack? ] reject
         [ f ] [ child-quot call ] if-empty
     ] [ f ] if ; inline
 
@@ -144,7 +144,7 @@ PRIVATE>
 :: collect-flat ( samples -- flat )
     IH{ } clone :> per-word-samples
     samples [| sample |
-        sample sample-callstack members [ ignore-word? not ] filter [
+        sample sample-callstack members [ ignore-word? ] reject [
             per-word-samples sample counts+at
         ] each
     ] each