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

Return what the profiled code returns.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-06-04 17:38:24 -04:00
parent a22e1ff218
commit 4a72221a9c
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/profile/contract-profile.rkt
View File

@ -204,9 +204,11 @@
(define-syntax-rule (contract-profile/user body ...) (define-syntax-rule (contract-profile/user body ...)
(let ([sampler (create-sampler (current-thread) 0.005 (current-custodian) (let ([sampler (create-sampler (current-thread) 0.005 (current-custodian)
(list contract-continuation-mark-key))]) (list contract-continuation-mark-key))])
body ... (begin0 (begin body ...)
(let ()
(sampler 'stop) (sampler 'stop)
(define samples (sampler 'get-snapshots)) (define samples (sampler 'get-snapshots))
(define contract-samples (for/list ([s (in-list (sampler 'get-custom-snapshots))]) (define contract-samples
(for/list ([s (in-list (sampler 'get-custom-snapshots))])
(and s (vector-ref s 0)))) (and s (vector-ref s 0))))
(analyze-contract-samples contract-samples samples))) (analyze-contract-samples contract-samples samples)))))