Avoid logging when there are no processes to wait for

This commit is contained in:
Christopher Baines 2023-03-09 08:24:01 +00:00
parent e9ccb66225
commit 55059558e7
1 changed files with 7 additions and 2 deletions

View File

@ -122,8 +122,13 @@
;; Recurse, to check for other finished processes.
(wait-on-processes))))
(lambda (key . args)
(simple-format #t "key ~A args ~A\n"
key args))))
(unless (and (eq? key 'system-error)
(match args
(("waitpid" "~A" ("No child processes") (10))
#t)
(_ #f)))
(simple-format #t "key ~A args ~A\n"
key args)))))
(define (kill-long-running-processes)
(hash-map->list