(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)