- (iota num-students)))
-
- ;; Bootstrap each student into bothering-professor mode.
- (define start-bothering-tasks
- (map
- (lambda (student)
- (bootstrap-message hive student 'bother-professor
- #:target professor))
- students))
-
- (run-hive hive start-bothering-tasks))
+ (iota num-students)))
+
+ ;; Bootstrap each student into bothering-professor mode.
+ (define start-bothering-tasks
+ (map
+ (lambda (student)
+ (<- student 'bother-professor
+ #:target professor))
+ students))
+
+ (run-hive hive start-bothering-tasks)
+ ;; in other words, this program doesn't really halt
+ (wait (make-condition)))))