From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Jul 2015 19:45:51 +0000 (-0700)
Subject: Prune subprocess event registrations after exited/signalled.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e969400e702064ecb46229b527d2a8085ac15011;p=mit-scheme.git

Prune subprocess event registrations after exited/signalled.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 882e00280..4f84ba77d 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1085,7 +1085,13 @@ USA.
 	       (subprocess-registration/thread registration)
 	       (and event (lambda () (event status))))
 	      (set-subprocess-registration/status! registration status)))))
-    subprocess-registrations))
+    subprocess-registrations)
+  (set! subprocess-registrations
+	(filter! (lambda (registration)
+		   (let ((status (subprocess-registration/status registration)))
+		     (not (or (eq? status 'EXITED)
+			      (eq? status 'SIGNALLED)))))
+		 subprocess-registrations)))
 
 ;;;; Timer Events