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

A bunch of fprintf' -> eprintf' conversions (and a few related things).

Browse Source 
original commit: 17090fca4f19298f01d03fea419edb20f315d040
This commit is contained in:
Eli Barzilay 2012-05-06 12:06:00 -04:00
parent 60dd49df61
commit b32aff7e66
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profile/main.rkt
View File

@ -28,8 +28,7 @@
(loop))))))) (loop)))))))
(define (run) (for ([i (in-range rpt)]) (thunk))) (define (run) (for ([i (in-range rpt)]) (thunk)))
(with-handlers ([void (lambda (e) (with-handlers ([void (lambda (e)
(fprintf (current-error-port) (eprintf "profiled thunk error: ~a\n"
"profiled thunk error: ~a\n"
(if (exn? e) (if (exn? e)
(exn-message e) (exn-message e)
(format "~e" e))))]) (format "~e" e))))])