X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Factors%2Fbotherbotherbother.scm;h=8daed935e358e0167e3d3954032701a0f86845ed;hb=9adac66bf1a1cf8e363aef54ddc7c14120c8f0c6;hp=5f294fd8d46097c2c3d41bda4a943ef068cc60af;hpb=5985528115e276d273a6a4bb1df57c93cab61f84;p=8sync.git diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm index 5f294fd..8daed93 100755 --- a/demos/actors/botherbotherbother.scm +++ b/demos/actors/botherbotherbother.scm @@ -81,6 +81,7 @@ ;; 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) @@ -129,7 +130,7 @@ (define start-bothering-tasks (map (lambda (student) - (hive-bootstrap-message hive student 'bother-professor + (bootstrap-message hive student 'bother-professor #:target professor)) students))