diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor index 01fe6b6501..92374bb1c3 100644 --- a/basis/tools/profiler/sampling/sampling.factor +++ b/basis/tools/profiler/sampling/sampling.factor @@ -57,7 +57,7 @@ CONSTANT: ignore-words : foreign-thread-time ( -- n ) get-raw-profile-data (foreign-thread-time) ; -: collect-threads ( samples -- by-top ) +: collect-threads ( samples -- by-thread ) [ sample-thread ] collect-by ; : time-per-thread ( -- n )