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

Show expressions in errortrace profiles, instead of just symbols.

Browse Source 
Since profile nodes report the time spent in, e.g., an entire call
expression (including argument evaluation), and not just in the body of
the operator, showing only the operator in the profile is misleading.
This commit is contained in:
Vincent St-Amour 2013-11-07 15:49:03 -05:00
parent d1abf632b1
commit 22def35d68
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/profile-pkgs/profile-lib/sampler.rkt
View File

@ -8,12 +8,13 @@
(require errortrace/errortrace-key) (require errortrace/errortrace-key)
;; (cons sexp srcloc) -> (cons symbol srcloc) ;; (cons sexp srcloc) -> (cons sexp srcloc)
;; just take the first symbol we find ;; abbreviate the expression for concise reports
;; we take the first symbol we can find, and wrap it in a stub expression
(define (errortrace-preprocess frame) (define (errortrace-preprocess frame)
(cons (and (car frame) (cons (and (car frame)
(let loop ([e (car frame)]) (let loop ([e (car frame)])
(cond [(symbol? e) e] (cond [(symbol? e) (list e '...)]
[(pair? e) (loop (car e))] [(pair? e) (loop (car e))]
[else (error 'errortrace-preprocess [else (error 'errortrace-preprocess
"unexpected frame: ~a" frame)]))) "unexpected frame: ~a" frame)])))