X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Froom.scm;h=aaedd5ce6a15ff5297f3157aa7f52712b82cae65;hp=0ad886ceece07226a1dd508154c91c619535e4a1;hb=ed1ef3172af4c2621e2b746824b7defa6f0dcedd;hpb=e6bd5ce0dd5edd77d182f70e6a32101e999f8623

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 0ad886c..aaedd5c 100644
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -105,7 +105,7 @@
                          (dyn-ref room (slot-ref exit 'to))
                          #f))
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (cond
    (exit
     ;; Set the player's new location
@@ -202,7 +202,7 @@
    (lambda (return)
      (for-each
       (lambda (occupant)
-        (msg-receive (_ #:key goes-by)
+        (mbody-receive (_ #:key goes-by)
             (<-wait occupant 'goes-by)
           (if (member called-this goes-by)
               (return occupant))))
@@ -221,7 +221,7 @@
   (cond
    (matching-object
     (let ((obj-desc
-           (msg-val (<-wait matching-object 'get-desc
+           (mbody-val (<-wait matching-object 'get-desc
                             #:whos-looking (message-from message)))))
       (if obj-desc
           (<- (message-from message) 'tell
@@ -255,7 +255,7 @@
 (define* (room-cmd-say room message #:key phrase)
   "Command: Say something to room participants."
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (define message-to-send
     (format #f "~a says: ~a\n" player-name phrase))
   (room-tell-room room message-to-send))
@@ -263,14 +263,14 @@
 (define* (room-cmd-emote room message #:key phrase)
   "Command: Say something to room participants."
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (define message-to-send
     (format #f "* ~a ~a\n" player-name phrase))
   (room-tell-room room message-to-send))
 
 (define* (room-announce-entrance room message #:key who-entered)
   (define player-name
-    (msg-val (<-wait who-entered 'get-name)))
+    (mbody-val (<-wait who-entered 'get-name)))
   (define message-to-send
     (format #f "~a enters the room.\n" player-name))
   (room-tell-room room message-to-send