Skip items on ticky foldr if they're dead already

6 years ago · ebf6ff1fd3
1 changed files with 4 additions and 1 deletions
--- 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 '()))