cleanup timer warning output
(if (>= (length snitch--timer-alist) snitch--max-timer-backtraces)
(when snitch-print-timer-warnings
(message "*snitch warning* too many timers, discarding: %s"
- (timer--function timer)))
+ (snitch--fn-repr (timer--function timer))))
(progn
(setq snitch--timer-alist
(cons (cons timer (cons bt timeout-fn)) snitch--timer-alist))
(when match
(when snitch-print-timer-warnings
(message "*snitch warning* timer timed out: %s"
- (timer--function timer)))
+ (snitch--fn-repr (timer--function timer))))
(setq snitch--timer-removed-count
(+ snitch--timer-removed-count 1))
(setq snitch--timer-alist
(when (and (null match)
snitch-print-timer-warnings)
(message "*snitch warning* remove unknown timer: %s"
- (timer--function timer))
+ (snitch--fn-repr (timer--function timer)))
(setq snitch--timer-missed-count
(+ snitch--timer-missed-count 1)))
(when match