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

Make TR timing info fit on a line.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-08-30 14:06:32 -04:00
parent ecdd50da09
commit f3d22879a2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/utils/utils.rkt
View File

@ -124,7 +124,7 @@ at least theoretically.
(error 'start-timing "Timing already started")) (error 'start-timing "Timing already started"))
(set!-last-time (current-process-milliseconds)) (set!-last-time (current-process-milliseconds))
(set!-initial-time last-time) (set!-initial-time last-time)
(log-debug (format "TR Timing: ~a at ~a" (pad "Starting" 40 #\space) initial-time)))]) (log-debug (format "TR Timing: ~a at ~a" (pad "Starting" 32 #\space) initial-time)))])
(syntax-rules () (syntax-rules ()
[(_ msg) [(_ msg)
(begin (begin
@ -133,7 +133,7 @@ at least theoretically.
(let* ([t (current-process-milliseconds)] (let* ([t (current-process-milliseconds)]
[old last-time] [old last-time]
[diff (- t old)] [diff (- t old)]
[new-msg (pad msg 40 #\space)]) [new-msg (pad msg 32 #\space)])
(set!-last-time t) (set!-last-time t)
(log-debug (format "TR Timing: ~a at ~a\tlast step: ~a\ttotal: ~a" new-msg t diff (- t initial-time)))))])) (log-debug (format "TR Timing: ~a at ~a\tlast step: ~a\ttotal: ~a" new-msg t diff (- t initial-time)))))]))
(values (lambda _ #'(void)) (lambda _ #'(void))))) (values (lambda _ #'(void)) (lambda _ #'(void)))))