projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Permit a post-run-hook in start-agenda.
[8sync.git]
/
demos
/
actors
/
botherbotherbother.scm
diff --git
a/demos/actors/botherbotherbother.scm
b/demos/actors/botherbotherbother.scm
index 5f294fd8d46097c2c3d41bda4a943ef068cc60af..8daed935e358e0167e3d3954032701a0f86845ed 100755
(executable)
--- a/
demos/actors/botherbotherbother.scm
+++ b/
demos/actors/botherbotherbother.scm
@@
-81,6
+81,7
@@
;; Oof! Those kids!
(display (string-append (random-choice complaints)))
;; 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)
;; More than one student is bothering us, lose our temper
(if (> (hash-count (const #t) whos-bothering)
@@
-129,7
+130,7
@@
(define start-bothering-tasks
(map
(lambda (student)
(define start-bothering-tasks
(map
(lambda (student)
- (
hive-
bootstrap-message hive student 'bother-professor
+ (bootstrap-message hive student 'bother-professor
#:target professor))
students))
#:target professor))
students))