- (let* ((result (<-wait player inv-item
- 'get-contained-commands
- #:verb verb))
- (commands (message-ref result 'commands))
- (goes-by (message-ref result 'goes-by)))
+ (msg-receive (_ #:key commands goes-by)
+ (<-wait player inv-item
+ 'get-contained-commands
+ #:verb verb)