haskal
/
crossfire
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix busyloop bug in agent

This commit is contained in:
xenia 2021-01-14 02:30:43 -05:00
parent d41d8ee246
commit 0a9902d83e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
crossfire/agent.rkt
View File

@ -292,7 +292,7 @@
(for/list ([i (in-naturals)] [wr (in-list pattern-ranges)])
(define b (box #f))
(cons (thread (lambda () (execute-cpu-wrap wr b))) b))))
(let loop ()
(let loop ([children children])
(with-handlers ([exn? (lambda (ex)
(log-agent-error "stopping assignment ~a due to error" aid)
;; break all children
@ -304,12 +304,12 @@
;; reraise
(raise ex))])
(apply sync/enable-break (map car children))
(define threads-running? (ormap (compose thread-running? car) children))
(define any-exn (ormap (compose unbox cdr) children))
(when any-exn
(raise any-exn))
(when threads-running?
(loop))))
(define-values [pending completed] (partition (compose thread-running? car) children))
(for ([k (in-list completed)])
(let ([maybe-exn (unbox (cdr k))])
(when maybe-exn (raise maybe-exn))))
(unless (empty? pending)
(loop pending))))
(break-enabled #t))
(cleanup)