From 3a2c2514a6f6f18d04f82efa25d9eb47375dccd4 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Fri, 28 Feb 2014 10:37:58 -0500
Subject: [PATCH] Document contract-profile-thunk.

---
 pkgs/contract-profile/main.rkt                           | 1 -
 pkgs/contract-profile/scribblings/contract-profile.scrbl | 5 +++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/pkgs/contract-profile/main.rkt b/pkgs/contract-profile/main.rkt
index 2e811491d4..e786f53a47 100644
--- a/pkgs/contract-profile/main.rkt
+++ b/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)))
diff --git a/pkgs/contract-profile/scribblings/contract-profile.scrbl b/pkgs/contract-profile/scribblings/contract-profile.scrbl
index 8866bfe490..0000a43c2e 100644
--- a/pkgs/contract-profile/scribblings/contract-profile.scrbl
+++ b/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.
+}