+(define-mhandler (gm-client-closed gm message client)
+ ;; Do we have this client registered to an actor? Get the id if so.
+ (define actor-id (hash-ref (gm-client-dir gm) client))
+
+ ;; Have the actor appropriately disappear / be removed from its
+ ;; room, if we have one.
+ ;; (In some games, if the user never connected)
+ (when actor-id
+ (<-wait gm actor-id 'disconnect-self-destruct)
+ ;; Unregister from the client directories.
+ (gm-unregister-client! gm client)))
+