From 0bd53a35492f3c64fa207b5633248d48a8304b6b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 6 Aug 2012 15:31:34 -0600
Subject: [PATCH] compiler/zo-marshal: repair mashaling of import info in
 syntax

---
 collects/compiler/zo-marshal.rkt    | 8 +++-----
 collects/tests/compiler/zo-test.rkt | 7 ++++++-
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/collects/compiler/zo-marshal.rkt b/collects/compiler/zo-marshal.rkt
index 255b327f4c..e0a96c0feb 100644
--- a/collects/compiler/zo-marshal.rkt
+++ b/collects/compiler/zo-marshal.rkt
@@ -406,13 +406,11 @@
 
 (define (encode-all-from-module afm)
   (match afm
-    [(struct all-from-module (path phase src-phase null #f null))
+    [(struct all-from-module (path phase src-phase '() #f '()))
      (list* path phase src-phase)]
-    [(struct all-from-module (path phase src-phase null #f context))
+    [(struct all-from-module (path phase src-phase '() #f context))
      (list* path phase context src-phase)]
-    [(struct all-from-module (path phase src-phase exns #f null))
-     (list* path phase exns src-phase)]
-    [(struct all-from-module (path phase src-phase exns prefix null))
+    [(struct all-from-module (path phase src-phase exns prefix '()))
      (list* path phase src-phase exns prefix)]))
 
 (define (encode-wraps wraps)
diff --git a/collects/tests/compiler/zo-test.rkt b/collects/tests/compiler/zo-test.rkt
index 672b8677c8..5c7694085f 100755
--- a/collects/tests/compiler/zo-test.rkt
+++ b/collects/tests/compiler/zo-test.rkt
@@ -18,6 +18,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
 (define invariant-output (make-parameter #f))
 (define time-limit (make-parameter +inf.0))
 (define randomize (make-parameter #f))
+(define num-processes (make-parameter (processor-count)))
 
 (define errors (make-hash))
 (define (record-common-error! exn-msg)
@@ -89,6 +90,10 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
                  number
                  "Limit the run to a given amount of time"
                  (time-limit (string->number number))]
+                [("-j") 
+                 n
+                 "Run <n> in parallel"
+                 (num-processes (string->number n))]
                 #:args p
                 (if (empty? p)
                     (list (find-collects-dir))
@@ -99,7 +104,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
 (define from-worker-ch (make-channel))
 
 (define worker-threads
-  (for/list ([i (in-range (processor-count))])
+  (for/list ([i (in-range (num-processes))])
     (thread
      (λ ()
        (let loop ()