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

Document contract-profile-thunk.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-02-28 10:37:58 -05:00
parent 0d689ed389
commit 3a2c2514a6
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -239,6 +239,5 @@
(and (not (empty? s)) (vector-ref (car s) 0)))) (and (not (empty? s)) (vector-ref (car s) 0))))
(analyze-contract-samples contract-samples samples))))) (analyze-contract-samples contract-samples samples)))))
;; TODO: document
(define (contract-profile-thunk f) (define (contract-profile-thunk f)
(contract-profile/user (f))) (contract-profile/user (f)))

5
pkgs/contract-profile/scribblings/contract-profile.scrbl
View File

@ -67,3 +67,8 @@ file.
] ]
} }
@defproc[(contract-profile-thunk [thunk (-> any)]) any]{
Like @racket[contract-profile], but as a function which takes a thunk to
profile as argument.
}