remove some useless whitespace

[mudsync.git] / mudsync / player.scm

diff --git a/mudsync/player.scm b/mudsync/player.scm
index bbd14030dc416a90d92478cbf83e9feda6c6fbc1..0879300e34177e9d2187b3faa0a32cd436c57fba 100644 (file)
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -160,9 +160,7 @@
   (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...