(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)
(define co-occupants
(remove
(lambda (x) (equal? x (actor-id player)))
- (mbody-receive (_ #:key occupants)
- (<-wait player-loc 'get-occupants)
- occupants)))
+ (mbody-val (<-wait player-loc 'get-occupants))))
;; @@: There's a race condition here if someone leaves the room
;; during this, heh...