Document contract-profile-thunk.

pkgs/contract-profile/main.rkt

@@ -239,6 +239,5 @@
             (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)))

pkgs/contract-profile/scribblings/contract-profile.scrbl

@@ -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.
+}