Fix #1653: uncaught error when async process times out
This commit is contained in:
parent
115a436273
commit
c266680c11
|
@ -225,7 +225,9 @@ a list of packages that will be updated."
|
||||||
(while (not (async-ready (caar futures)))
|
(while (not (async-ready (caar futures)))
|
||||||
(when (> time timeout)
|
(when (> time timeout)
|
||||||
(print! (warn "A thread has timed out. The following packages were skipped:\n\n %s"
|
(print! (warn "A thread has timed out. The following packages were skipped:\n\n %s"
|
||||||
(string-join (cdar futures) ", ")))
|
(mapconcat (lambda (p) (plist-get p :package))
|
||||||
|
(cdar futures)
|
||||||
|
", ")))
|
||||||
(throw 'timeout t))
|
(throw 'timeout t))
|
||||||
(sleep-for 2)
|
(sleep-for 2)
|
||||||
(cl-incf time)
|
(cl-incf time)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user