suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compiler/zo-marshal: repair mashaling of import info in syntax

Browse Source
This commit is contained in:
Matthew Flatt 2012-08-06 15:31:34 -06:00
parent 699659840a
commit 0bd53a3549
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/compiler/zo-marshal.rkt
View File

@ -406,13 +406,11 @@
(define (encode-all-from-module afm) (define (encode-all-from-module afm)
(match 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)] (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)] (list* path phase context src-phase)]
[(struct all-from-module (path phase src-phase exns #f null)) [(struct all-from-module (path phase src-phase exns prefix '()))
(list* path phase exns src-phase)]
[(struct all-from-module (path phase src-phase exns prefix null))
(list* path phase src-phase exns prefix)])) (list* path phase src-phase exns prefix)]))
(define (encode-wraps wraps) (define (encode-wraps wraps)

7
collects/tests/compiler/zo-test.rkt
View File

@ -18,6 +18,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(define invariant-output (make-parameter #f)) (define invariant-output (make-parameter #f))
(define time-limit (make-parameter +inf.0)) (define time-limit (make-parameter +inf.0))
(define randomize (make-parameter #f)) (define randomize (make-parameter #f))
(define num-processes (make-parameter (processor-count)))
(define errors (make-hash)) (define errors (make-hash))
(define (record-common-error! exn-msg) (define (record-common-error! exn-msg)
@ -89,6 +90,10 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
number number
"Limit the run to a given amount of time" "Limit the run to a given amount of time"
(time-limit (string->number number))] (time-limit (string->number number))]
[("-j")
n
"Run <n> in parallel"
(num-processes (string->number n))]
#:args p #:args p
(if (empty? p) (if (empty? p)
(list (find-collects-dir)) (list (find-collects-dir))
@ -99,7 +104,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(define from-worker-ch (make-channel)) (define from-worker-ch (make-channel))
(define worker-threads (define worker-threads
(for/list ([i (in-range (processor-count))]) (for/list ([i (in-range (num-processes))])
(thread (thread
(λ () (λ ()
(let loop () (let loop ()