From 3be8e3ba86b3b8ac649495047de72ace0d54064e Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 17 Aug 2010 15:23:00 -0600
Subject: [PATCH] A little documentation

---
 collects/tests/stress/stress.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/collects/tests/stress/stress.rkt b/collects/tests/stress/stress.rkt
index 8b9893e4e2..12dfae6c5e 100644
--- a/collects/tests/stress/stress.rkt
+++ b/collects/tests/stress/stress.rkt
@@ -2,6 +2,9 @@
 (provide stress
          fit)
 
+; fit : string number (number -> any) #:slices number -> void
+; Run f with slices different numbers between 0 and max, then print the summary
+; timing with label
 (define (fit label max f #:slices [slices 20])
   (fit-display
    label
@@ -27,6 +30,9 @@
   (custodian-shutdown-all exp-cust)
   (values cpu real gc))
 
+; stress : number [string expr ...] ...
+; Runs trials-expr different instances of each (begin expr ...) averaging the 
+; timing and displaying them sorted by cpu time
 (define-syntax-rule (stress trials-expr [label body ...] ...)
   (stress* trials-expr
            (cons label (λ () body ...))