From f077644528d3ff0aa8b64c3050f72e9b08b80d49 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 28 Jan 2017 12:40:51 -0600 Subject: [PATCH] fixed up the inventory command --- mudsync/player.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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) -- 2.31.1