   over [ reset-vocab ] [ add-timers ] bi
   reset-word-timer
   "executing quotation..." print flush
-  [ call ] micro-time >r
+  benchmark >r
   "resetting annotations..." print flush
   reset-vocab
   correct-for-timing-overhead

USING: kernel sequences namespaces make math assocs words arrays
tools.annotations vocabs sorting prettyprint io micros
math.statistics accessors ;
IN: wordtimer


  *calling* get-global at ; inline
    
: timed-call ( quot word -- )
  [ calling ] [ >r benchmark r> register-time ] [ finished ] tri ; inline

: time-unless-recursing ( quot word -- )
  dup called-recursively? not
