fix multi-core variant of the racket contract tests
This commit is contained in:
parent
4d361187a2
commit
cec813fef6
|
@ -177,7 +177,7 @@
|
|||
(for ([pc (in-list free)])
|
||||
(place-channel-put pc 'get-counts-and-stop)
|
||||
(define-values (tests failures) (apply values (place-channel-get pc)))
|
||||
(for ([i (in-range tests)]) (new-test-case))
|
||||
(for ([i (in-range tests)]) (new-test-case 'unknown-name))
|
||||
(for ([i (in-range failures)]) (new-failure)))]
|
||||
[else
|
||||
(apply sync
|
||||
|
|
Loading…
Reference in New Issue
Block a user