primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / basis / tools / dispatch / dispatch.factor

diff --git a/basis/tools/dispatch/dispatch.factor b/basis/tools/dispatch/dispatch.factor
index 72830b29b44a28d7f724021f6116864989582d55..9ec8954b0bf041d3fa9f116c39a6334b8fdac163 100644 (file)
--- a/basis/tools/dispatch/dispatch.factor
+++ b/basis/tools/dispatch/dispatch.factor
@@ -4,6 +4,11 @@ USING: accessors kernel namespaces prettyprint classes.struct
 vm tools.dispatch.private ;
 IN: tools.dispatch
 
+<PRIVATE
+PRIMITIVE: dispatch-stats ( -- stats )
+PRIMITIVE: reset-dispatch-stats ( -- )
+PRIVATE>
+
 SYMBOL: last-dispatch-stats
 
 : dispatch-stats. ( -- )