+(define-method (hive-handle-cleanup-all (hive <hive>) message)
+ "Send a message to all actors in our registry to clean themselves up."
+ ;; Unfortunately we have to do this hack and run over the list
+ ;; twice, because hash-for-each would result in an unrewindable
+ ;; continuation.
+ (define actor-ids
+ (hash-map->list (lambda (actor-id actor) actor-id)
+ (hive-actor-registry hive)))
+ (for-each (lambda (actor-id)
+ (<- hive actor-id '*cleanup*))
+ actor-ids))
+