From 64521e70eab257e7fb902e51723016065e3cc922 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Wed, 19 Jan 2011 10:12:09 -0700 Subject: [PATCH] Remove dead code --- collects/setup/parallel-do.rkt | 6 ------ 1 file changed, 6 deletions(-) diff --git a/collects/setup/parallel-do.rkt b/collects/setup/parallel-do.rkt index 416a387c61..4ad3828065 100644 --- a/collects/setup/parallel-do.rkt +++ b/collects/setup/parallel-do.rkt @@ -14,7 +14,6 @@ (provide parallel-do parallel-do-event-loop - parallel-do-default-error-handler current-executable-path current-collects-path match-message-loop @@ -171,11 +170,6 @@ (for ([p workers]) (with-handlers ([exn? void]) (wrkr/send p (list 'DIE)))) (for ([p workers]) (send p wait))))) -(define (parallel-do-default-error-handler work error-message outstr errstr) - (printf "WORKER ERROR ~a\n" error-message) - (printf "STDOUT\n~a=====\n" outstr) - (printf "STDERR\n~a=====\n" errstr)) - (define ListQueue% (class* object% (WorkQueue<%>) (init-field queue create-job-thunk success-thunk failure-thunk) (field [results null])