fixed up the inventory command

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 0879300e34177e9d2187b3faa0a32cd436c57fba..f04c2feea3e6870326d4b2e5b32da951e7e19b04 100644 (file)
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -105,11 +105,10 @@
   (define text-to-show
     (if (eq? inv-names '())
         "You aren't carrying anything.\n"
   (define text-to-show
     (if (eq? inv-names '())
         "You aren't carrying anything.\n"

-        (apply string-append
-               "You are carrying:\n"
-               (map (lambda (item-name)
-                      (string-append "  * " item-name "\n"))
-                    inv-names))))
+        `((p "You are carrying:")
+          (ul ,(map (lambda (item-name)
+                      `(li ,item-name))
+                    inv-names)))))

   (<- (actor-id player) 'tell #:text text-to-show))
 
 (define (player-cmd-help player message)
   (<- (actor-id player) 'tell #:text text-to-show))
 
 (define (player-cmd-help player message)