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

Add contract-profile-thunk

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-02-19 16:12:11 -05:00 committed by Vincent St-Amour
parent 5b038fccaf
commit 0d689ed389
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/contract-profile/main.rkt
View File

@ -222,7 +222,8 @@
;;---------------------------------------------------------------------------
;; Entry point
(provide (rename-out [contract-profile/user contract-profile]))
(provide (rename-out [contract-profile/user contract-profile])
contract-profile-thunk)
;; TODO have kw args for profiler, etc.
;; TODO have kw args for output files
@ -237,3 +238,7 @@
(for/list ([s (in-list (sampler 'get-custom-snapshots))])
(and (not (empty? s)) (vector-ref (car s) 0))))
(analyze-contract-samples contract-samples samples)))))
;; TODO: document
(define (contract-profile-thunk f)
(contract-profile/user (f)))