diff --git a/basis/tools/dispatch/dispatch.factor b/basis/tools/dispatch/dispatch.factor index 7ee89a50fb..72830b29b4 100644 --- a/basis/tools/dispatch/dispatch.factor +++ b/basis/tools/dispatch/dispatch.factor @@ -17,7 +17,7 @@ SYMBOL: last-dispatch-stats { "Tuple check count" [ pic-tuple-count>> ] } } object-table. ; -: collect-dispatch-stats ( quot -- dispatch-stats ) +: collect-dispatch-stats ( quot -- dispatch-statistics ) reset-dispatch-stats call dispatch-stats dispatch-statistics memory>struct ; inline diff --git a/basis/tools/time/time-docs.factor b/basis/tools/time/time-docs.factor index ce9a621a2f..cbcd38c801 100644 --- a/basis/tools/time/time-docs.factor +++ b/basis/tools/time/time-docs.factor @@ -32,6 +32,6 @@ HELP: collect-gc-events { $notes "The " { $link time } " combinator automatically calls this combinator." } ; HELP: collect-dispatch-stats -{ $values { "quot" quotation } { "dispatch-stats" dispatch-stats } } -{ $description "Calls the quotation and outputs a " { $link dispatch-stats } " instance." } +{ $values { "quot" quotation } { "dispatch-statistics" dispatch-statistics } } +{ $description "Calls the quotation and outputs a " { $link dispatch-statistics } " instance." } { $notes "The " { $link time } " combinator automatically calls this combinator." } ;