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