From 6a220d7d69e7ec841972fcb4d124c66f4e98585f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@eecs.northwestern.edu>
Date: Tue, 8 Feb 2011 10:01:54 -0600
Subject: [PATCH] docs fixes for parallel-compile-files   also, (lambda args
 (void)) is the same as just void, so changed that.

---
 collects/scribblings/raco/make.scrbl | 27 ++++++++++++++++-----------
 collects/setup/parallel-build.rkt    |  2 +-
 2 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/collects/scribblings/raco/make.scrbl b/collects/scribblings/raco/make.scrbl
index b01d84f27f..53ed32dc44 100644
--- a/collects/scribblings/raco/make.scrbl
+++ b/collects/scribblings/raco/make.scrbl
@@ -6,6 +6,7 @@
           (for-label racket/base
                      racket/include
                      racket/contract
+                     racket/future
                      compiler/cm
                      compiler/cm-accomplice
                      setup/parallel-build))
@@ -363,27 +364,31 @@ parallel builder should continue without compiling @racket[zo-path].
 @defmodule[setup/parallel-build]{
 
 The @schememodname[setup/parallel-build] library provides the parallel compilation to bytecode
-functionality of @exec{rack setup} and @exec{rack make}.}
+functionality of @exec{rack setup} and @exec{raco make}.}
 
 @; ----------------------------------------------------------------------
 
 
 @defproc[(parallel-compile-files [list-of-files (listof path?)] 
-  [#:worker-count worker-count non-negative-integer?] 
-  [#:handler handler ([handler-type symbol?]
-                      [path path-string?]
-                      [msg string?] 
-                      [out string?] 
-                      [err string?] -> void?)]) void?]{
+                                 [#:worker-count worker-count non-negative-integer? (processor-count)] 
+                                 [#:handler handler (->i ([handler-type symbol?]
+                                                          [path path-string?]
+                                                          [msg string?] 
+                                                          [out string?] 
+                                                          [err string?])
+                                                         void?)
+                                            void])
+         void?]{
 
-The @racket[parallel-compile] utility function is used by @exec{rack make} to
+The @racket[parallel-compile] utility function is used by @exec{raco make} to
 compile a list of paths in parallel.  The optional keyword argument
 @racket[#:worker-count] specifies the number of compile workers to spawn during
-parallel compilation.  The callback, @racket[handler], is called with type
-@racket['done] for each successfully compiled file, @racket['output] when a
+parallel compilation.  The callback, @racket[handler], is called with the symbol
+@racket['done] as the @racket[_handler-type] argument for each successfully compiled file, 
+@racket['output] when a
 successful compilation produces stdout/stderr output, @racket['error] when a
 compilation error has occured, or @racket['fatal-error] when a unrecoverable
-error occurs.
+error occurs. The other arguments give more information for each status update.
  
   @racketblock[
     (parallel-compile-files 
diff --git a/collects/setup/parallel-build.rkt b/collects/setup/parallel-build.rkt
index f7f255e7ce..c23bf3f57a 100644
--- a/collects/setup/parallel-build.rkt
+++ b/collects/setup/parallel-build.rkt
@@ -190,7 +190,7 @@
   
 (define (parallel-compile-files list-of-files
   #:worker-count [worker-count (processor-count)]
-  #:handler [handler (lambda args (void))])
+  #:handler [handler void])
 
   (parallel-do-event-loop #f
                           values ; identity function