From de65bb55865d971204fd0409e5643bfcbb67c4ad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 9 Nov 2014 08:39:41 -0700 Subject: [PATCH] parallel-compile-files: fix docs and argument check for the handler callback --- pkgs/racket-pkgs/racket-doc/scribblings/raco/make.scrbl | 3 ++- racket/collects/setup/parallel-build.rkt | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/raco/make.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/raco/make.scrbl index ec27c7fc70..8cb2f8edbb 100644 --- a/pkgs/racket-pkgs/racket-doc/scribblings/raco/make.scrbl +++ b/pkgs/racket-pkgs/racket-doc/scribblings/raco/make.scrbl @@ -471,7 +471,8 @@ functionality of @exec{raco setup} and @exec{raco make}.} @defproc[(parallel-compile-files [list-of-files (listof path-string?)] [#:worker-count worker-count exact-positive-integer? (processor-count)] - [#:handler handler (->i ([handler-type symbol?] + [#:handler handler (->i ([worker-id exact-integer?] + [handler-type symbol?] [path path-string?] [msg string?] [out string?] diff --git a/racket/collects/setup/parallel-build.rkt b/racket/collects/setup/parallel-build.rkt index 508edc0ca5..ff50ea8fd6 100644 --- a/racket/collects/setup/parallel-build.rkt +++ b/racket/collects/setup/parallel-build.rkt @@ -345,8 +345,8 @@ (raise-argument-error 'parallel-compile-files "exact-positive-integer?" worker-count)) (unless (and (list? list-of-files) (andmap path-string? list-of-files)) (raise-argument-error 'parallel-compile-files "(listof path-string?)" list-of-files)) - (unless (and (procedure? handler) (procedure-arity-includes? handler 5)) - (raise-argument-error 'parallel-compile-files "(procedure-arity-includes/c 5)" handler)) + (unless (and (procedure? handler) (procedure-arity-includes? handler 6)) + (raise-argument-error 'parallel-compile-files "(procedure-arity-includes/c 6)" handler)) (parallel-build (make-object file-list-queue% list-of-files handler options) worker-count)) (define (parallel-compile worker-count setup-fprintf append-error collects-tree)