setup/parallel-build: repair test

Should have been part of 9e3b984463.
This commit is contained in:
Matthew Flatt 2014-05-29 09:58:29 +01:00
parent 92ffe436d6
commit bf504bbaaf

View File

@ -16,7 +16,7 @@
(parallel-compile-files
(list tmp1 tmp2)
#:worker-count 2
#:handler (lambda (type work msg out err)
#:handler (lambda (id type work msg out err)
(match type
['done (printf " Made ~a\n" work)]
['output (printf " Output from: ~a\n~a~a" work out err)]