branch: externals/el-job
commit a88e9d36728649082151475ade774ba2ae5b46a0
Author: Martin Edström <meedst...@runbox.eu>
Commit: Martin Edström <meedst...@runbox.eu>
Polish
---
el-job.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/el-job.el b/el-job.el
index c191014ac9..d1b6dd9f0e 100644
--- a/el-job.el
+++ b/el-job.el
@@ -569,6 +569,8 @@ should trigger `el-job--handle-output'."
(el-job--with job
( .ready .busy .input-sets .result-sets .queued-inputs .n-cores-to-use
.past-elapsed .timestamps .finish-times .id .stderr .timer )
+ (when .busy
+ (error "Unexpected still-busy processes at this time: %S" .busy))
(cancel-timer .timer)
(setf .input-sets nil)
(setf .result-sets nil)
@@ -593,7 +595,7 @@ should trigger `el-job--handle-output'."
(print-circle t)
(print-symbols-bare t)
(print-escape-newlines t)
- items proc)
+ proc)
(dolist (items splits)
(setq proc (pop .ready))
(push proc .busy)
