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 '()))