(define co-occupants
(remove
(lambda (x) (equal? x (actor-id player)))
- (mbody-receive (_ #:key occupants)
- (<-wait player-loc 'get-occupants)
- occupants)))
+ (mbody-val (<-wait player-loc 'get-occupants))))
;; @@: There's a race condition here if someone leaves the room
;; during this, heh...