suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Turn timing logging on unconditionally.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-03-28 10:06:20 -04:00
parent eb1fbc8bcf
commit 70e74b20d9
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/timing.rkt
View File

@ -3,7 +3,7 @@
(provide start-timing do-time)
;; some macros to do some timing, only when `timing?' is #t
(define-for-syntax timing? #f)
(define-for-syntax timing? #t)
(define-logger tr-timing)
@ -20,25 +20,25 @@
(values
(syntax-rules ()
[(_ msg)
(begin
(when last-time
(error 'start-timing "Timing already started"))
(set!-last-time (current-process-milliseconds))
(set!-initial-time last-time)
(log-tr-timing-debug
(log-tr-timing-debug
(let ()
(when last-time
(error 'start-timing "Timing already started"))
(set!-last-time (current-process-milliseconds))
(set!-initial-time last-time)
(format "~a at ~a"
(pad "Starting" 32 #\space) initial-time)))])
(syntax-rules ()
[(_ msg)
(begin
(unless last-time
(start-timing msg))
(let* ([t (current-process-milliseconds)]
[old last-time]
[diff (- t old)]
[new-msg (pad msg 32 #\space)])
(set!-last-time t)
(log-tr-timing-debug
(log-tr-timing-debug
(begin
(unless last-time
(start-timing msg))
(let* ([t (current-process-milliseconds)]
[old last-time]
[diff (- t old)]
[new-msg (pad msg 32 #\space)])
(set!-last-time t)
(format "~a at ~a\tlast step: ~a\ttotal: ~a"
new-msg t diff (- t initial-time)))))]))
(values (lambda _ #'(void)) (lambda _ #'(void)))))