- (pk 'later-exits (room-exits room))))
- (if exit
- (<- room (message-from message) 'tell
- #:text "Yeah you can go there...\n")
- (<- room (message-from message) 'tell
- #:text "I don't know where that is?\n")))
-
+ (room-exits room)))
+ (cond
+ (exit
+ (<-wait room (message-from message) 'set-loc!
+ #:loc (slot-ref exit 'to-address))
+ (<- room (message-from message) 'look-room))
+ (else
+ (<- room (message-from message) 'tell
+ #:text "I don't know where that is?\n"))))