;; Oof! Those kids!
(display (string-append (random-choice complaints)))
+ (newline)
;; More than one student is bothering us, lose our temper
(if (> (hash-count (const #t) whos-bothering)
(define start-bothering-tasks
(map
(lambda (student)
- (hive-bootstrap-message hive student 'bother-professor
+ (bootstrap-message hive student 'bother-professor
#:target professor))
students))