;; returns false for in the command response
(fold
(lambda (co-occupant prev)
- (display "pre-message\n")
(let* ((result (<-wait player co-occupant 'get-commands
#:verb verb))
(commands (message-ref result 'commands))
(goes-by (message-ref result 'goes-by)))
- (display "post-message\n")
(append
(map (lambda (command)
(list command goes-by co-occupant))