+(define* (self-destruct actor #:key (cleanup #t))
+ "Remove an actor from the hive.
+
+Unless #:cleanup is set to #f, this will first have the actor handle
+its '*cleanup* action handler."
+ (when cleanup
+ (<-wait actor (actor-id actor) '*cleanup*))