X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Factors%2Fbotherbotherbother.scm;fp=demos%2Factors%2Fbotherbotherbother.scm;h=2e72b2d21034ac5ad7eb41c35485b27f47ad319a;hp=4911afa16bebdd0278dc386f81ccebdc53c112a9;hb=dc2155083a90de90e24f5341b837d4d96ce2898c;hpb=08fb307989f2696ddbd2ad535f55558c577b2fdb

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
index 4911afa..2e72b2d 100755
--- a/demos/actors/botherbotherbother.scm
+++ b/demos/actors/botherbotherbother.scm
@@ -59,8 +59,7 @@
                (while (not (student-dead actor))
                  (format #t "~a: Bother bother bother!\n"
                          (actor-id-actor actor))
-                 (<- actor target
-                     'be-bothered
+                 (<- target 'be-bothered
                      #:noise "Bother bother bother!\n"))))
 
             (be-lambda-consvardraed
@@ -89,8 +88,7 @@
                 (actor-id actor))
         (hash-for-each
          (lambda (student _)
-           (<- actor student
-               'be-lambda-consvardraed)
+           (<- student 'be-lambda-consvardraed)
            ;; Remove student from bothering list
            (hash-remove! whos-bothering student))
          whos-bothering))