Use msg-val everywhere and fix some definitions' argument lists.

[mudsync.git] / mudsync / player.scm

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 844aaf96f031fbf4112a05b602a3bd5e0f4e5813..113770f72aa5d43ce23a34a87c95f4b8adfb5aa1 100644 (file)
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -113,9 +113,7 @@
   (define inv-names
     (map
      (lambda (inv-item)
-       (msg-receive (_ #:key val)
-           (<-wait player inv-item 'get-name)
-         val))
+       (msg-val (<-wait player inv-item 'get-name)))
      (gameobj-occupants player)))
   (define text-to-show
     (if (eq? inv-names '())