X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fplayer.scm;h=0879300e34177e9d2187b3faa0a32cd436c57fba;hp=bbd14030dc416a90d92478cbf83e9feda6c6fbc1;hb=36143a12b1510b687d8ac1c18749c0db06f64e34;hpb=4d4af0656b0402e630eea9393420197152945e5b

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...