From ebf6ff1fd301116c118034e2dabecedbb34d8bb0 Mon Sep 17 00:00:00 2001
From: Christopher Lemmer Webber <cwebber@dustycloud.org>
Date: Wed, 1 Jan 2020 17:21:34 -0500
Subject: [PATCH] Skip items on ticky foldr if they're dead already

---
 goblins/actor-lib/ticker2.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/goblins/actor-lib/ticker2.rkt b/goblins/actor-lib/ticker2.rkt
index fd6537f..1852709 100644
--- a/goblins/actor-lib/ticker2.rkt
+++ b/goblins/actor-lib/ticker2.rkt
@@ -76,7 +76,10 @@
      [(foldr proc init)
       (foldr (match-lambda*
                [(list (vector refr ticky) prev)
-                (proc refr prev)])
+                ;; skip if dead (probably from a previous foldr)
+                (if ($ ticky 'dead?)
+                    prev
+                    (proc refr prev))])
              init current-ticked)]))
 
   (spawn ^ticker '()))