suzanne.soy/typed-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 
original commit: f3d22879a2cf4e4000cfd47b92b3243dbdceaf1a
This commit is contained in:
Vincent St-Amour 2011-08-30 14:06:32 -04:00
parent 61836d7939
commit 17d631e2ad
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"))
(set!-last-time (current-process-milliseconds))
(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 ()
[(_ msg)
(begin
@ -133,7 +133,7 @@ at least theoretically.
(let* ([t (current-process-milliseconds)]
[old last-time]
[diff (- t old)]
[new-msg (pad msg 40 #\space)])
[new-msg (pad msg 32 #\space)])
(set!-last-time t)
(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)))))