From 17a71e8105866e33474970bd31d0e6dcba8294eb Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 8 Mar 2013 14:36:04 -0800 Subject: [PATCH] tools.profiler.sampling: more use of hash-sets. --- basis/tools/profiler/sampling/sampling.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor index a73245cc1d..5b2dffecb6 100644 --- a/basis/tools/profiler/sampling/sampling.factor +++ b/basis/tools/profiler/sampling/sampling.factor @@ -143,7 +143,7 @@ PRIVATE> :: collect-flat ( samples -- flat ) IH{ } clone :> per-word-samples samples [| sample | - sample sample-callstack unique keys [ ignore-word? not ] filter [ + sample sample-callstack members [ ignore-word? not ] filter [ per-word-samples sample counts+at ] each ] each