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

raco setup: allow catching cycle errors

Browse Source 
In parallel build mode, if attempting to compile a file triggers a
cycle error that is caught and discarded, don't leave behind a
dependency (that is effectively resolved by the error) in the
parallel-worker manager.
This commit is contained in:
Matthew Flatt 2019-03-05 20:24:02 -07:00
parent 01edfbbfcf
commit 828dc1f276
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/setup/parallel-build.rkt
View File

@ -41,13 +41,13 @@
(wrkr/send wrkr (list 'compiled)) (wrkr/send wrkr (list 'compiled))
'done] 'done]
[(list w waitlst) [(list w waitlst)
(hash-set! depends wrkr (cons w fn)) (let ([fns (check-cycles w (hasheq wrkr #t) null)])
(let ([fns (check-cycles wrkr (hash) null)])
(cond (cond
[fns [fns
(wrkr/send wrkr (list 'cycle (cons fn fns))) (wrkr/send wrkr (list 'cycle (cons fn fns)))
v] v]
[else [else
(hash-set! depends wrkr (cons w fn))
(list w (append waitlst (list wrkr)))]))] (list w (append waitlst (list wrkr)))]))]
[else [else
(wrkr/send wrkr (list 'locked)) (wrkr/send wrkr (list 'locked))