haskal
/
chomp
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops

This commit is contained in:
xenia 2020-05-03 00:19:19 -04:00
parent 658f581272
commit e1d9ec6fc5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
private/taskq.rkt
View File

@ -90,7 +90,8 @@
(for ([w (in-set dequeue-waiters)]) (for ([w (in-set dequeue-waiters)])
(thread-send w #f #f)) (thread-send w #f #f))
(for ([(k v) (in-hash task-waiters)]) (for ([(k v) (in-hash task-waiters)])
(thread-send v (error "queue shutdown") #f))) (for ([w (in-set v)])
(thread-send w (error "queue shutdown") #f))))
;; attempts to dequeue the next work ;; attempts to dequeue the next work
;; if there is work, set it to executing and invoke and remove one of the workers ;; if there is work, set it to executing and invoke and remove one of the workers