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

Parallel build match fix

Browse Source
This commit is contained in:
Kevin Tew 2010-11-30 09:33:55 -07:00
parent 8f9a8daa27
commit b212fc9485
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/setup/parallel-build.rkt
View File

@ -28,7 +28,7 @@
(when last ((collects-queue-printer jobqueue) (current-output-port) "made" "~a" cc-name )))] (when last ((collects-queue-printer jobqueue) (current-output-port) "made" "~a" cc-name )))]
[else [else
(match work (match work
[(list (list cc file last) message) [(list-rest (list cc file last) message)
((collects-queue-append-error jobqueue) cc "making" null "" "" "error") ((collects-queue-append-error jobqueue) cc "making" null "" "" "error")
(eprintf "work-done match cc failed.\n") (eprintf "work-done match cc failed.\n")
(eprintf "trying to match:\n~a\n" (list work msg))])])) (eprintf "trying to match:\n~a\n" (list work msg))])]))