(define clerk-knows-about
- "'changing name', 'common commands', and 'about the hotel'")
+ "'ask clerk about changing name', 'ask clerk about common commands', and 'ask clerk about the hotel'")
(define clerk-general-helpful-line
(string-append
(random-choice clerk-slacking-complaints)
"\"\n")))))
-(define (clerk-cmd-ask-incomplete clerk message)
+(define (clerk-cmd-ask-incomplete clerk message . _)
(<- (message-from message) 'tell
#:text "The clerk says, \"Ask about what?\"\n"))