X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fplayer.scm;h=0879300e34177e9d2187b3faa0a32cd436c57fba;hp=bbd14030dc416a90d92478cbf83e9feda6c6fbc1;hb=8268d0f1223f0d4fc77a8aa2b195368d56512ca4;hpb=5b32a3cd5db05b0bce7316b6ebdf3e80d855d7c9

diff --git a/mudsync/player.scm b/mudsync/player.scm
index bbd1403..0879300 100644
--- 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...