Parallel build fixes

collects/meta/props

@@ -1232,6 +1232,7 @@ path/s is either such a string or a list of them.
 "collects/scriblib" responsible (mflatt)
 "collects/setup" responsible (mflatt)
 "collects/setup/main.rkt" drdr:command-line #f
+"collects/setup/parallel-build-worker.rkt" drdr:command-line #f
 "collects/setup/plt-installer.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/setup/setup-go.rkt" drdr:command-line #f
 "collects/setup/unixstyle-install.rkt" drdr:command-line (mzc *)

collects/setup/parallel-build-worker.rkt

@@ -1,5 +1,7 @@
-#lang racket
+#lang racket/base
 (require compiler/cm)
+(require racket/match)
+
 (let ([cmc (make-caching-managed-compile-zo)]
       [worker-id (read)])
  (let loop ()
@@ -25,7 +27,7 @@
                            [current-output-port out-str-port]
                            [current-error-port err-str-port]
                            ;[manager-compile-notify-handler pp]
-)
+                          )
 
               (cmc (build-path dir file)))
             (send/resp 'DONE))))

collects/setup/setup-unit.rkt

@@ -661,6 +661,7 @@
     (match (parallel-build)
       [#t
         (compile-cc (collection->cc (list (string->path "racket"))) 0)
+        (managed-compile-zo (build-path main-collects-dir  "setup/parallel-build-worker.rkt"))
         (with-specified-mode
           (let ([cct (move-drscheme-to-end (sort-collections-tree (collection-tree-map top-level-plt-collects)))])
             (iterate-cct (lambda (cc)