collect-flat ( samples -- flat )


Vocabulary
tools.profiler.sampling.private

Inputs
samplesan object


Outputs
flatan object


Definition
USING: assocs kernel sequences sets tools.profiler.sampling ;

IN: tools.profiler.sampling.private

:: collect-flat ( samples -- flat )
IH{ } clone :> per-word-samples samples [| sample |
sample sample-callstack members [ ignore-word? ] reject
[ per-word-samples sample counts+at ] each
] each per-word-samples [ f 0 <profile-node> ] assoc-map ;