-(define %formless-desc
- "You don't see anything special.")
-
-(define* (room-look-at room message #:key direct-obj)
- "Look at a specific object in the room."
- (define matching-object
- (room-find-thing-called room direct-obj))
-
- (cond
- (matching-object
- (let ((obj-desc
- (mbody-val (<-wait matching-object 'get-desc
- #:whos-looking (message-from message)))))
- (if obj-desc
- (<- (message-from message) 'tell #:text obj-desc)
- (<- (message-from message) 'tell #:text %formless-desc))))
- (else
- (<- (message-from message) 'tell
- #:text "You don't see that here, so you can't look at it.\n"))))
+(define* (room-look-dont-see-it room message #:key direct-obj)
+ "In general, if we get to this point, we didn't find something to look at."
+ (<- (message-from message) 'tell
+ #:text "You don't see that here, so you can't look at it.\n"))