projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Implicit from-actor argument <-foo methods, and add rest of <-foo*.
[8sync.git]
/
demos
/
actors
/
botherbotherbother.scm
diff --git
a/demos/actors/botherbotherbother.scm
b/demos/actors/botherbotherbother.scm
index 4911afa16bebdd0278dc386f81ccebdc53c112a9..2e72b2d21034ac5ad7eb41c35485b27f47ad319a 100755
(executable)
--- 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))
(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
#:noise "Bother bother bother!\n"))))
(be-lambda-consvardraed
@@
-89,8
+88,7
@@
(actor-id actor))
(hash-for-each
(lambda (student _)
(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))
;; Remove student from bothering list
(hash-remove! whos-bothering student))
whos-bothering))