X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fplayer.scm;fp=mudsync%2Fplayer.scm;h=f04c2feea3e6870326d4b2e5b32da951e7e19b04;hp=0879300e34177e9d2187b3faa0a32cd436c57fba;hb=f077644528d3ff0aa8b64c3050f72e9b08b80d49;hpb=0974cafbe7e10dd08fe3fef371d002c3606feb9e

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