projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Switch hive-create-actor[*] to match create-actor[*]
[8sync.git]
/
demos
/
actors
/
botherbotherbother.scm
diff --git
a/demos/actors/botherbotherbother.scm
b/demos/actors/botherbotherbother.scm
index 5a43a8bd9e65a10e9fb4821dbd6acd4b1d29722e..5f294fd8d46097c2c3d41bda4a943ef068cc60af 100755
(executable)
--- a/
demos/actors/botherbotherbother.scm
+++ b/
demos/actors/botherbotherbother.scm
@@
-115,13
+115,14
@@
(define (main . args)
(define agenda (make-agenda))
(define hive (make-hive))
(define (main . args)
(define agenda (make-agenda))
(define hive (make-hive))
- (define professor (hive-create-actor
hive <professor>
))
+ (define professor (hive-create-actor
* hive <professor> "prof"
))
(define namegen (student-name-generator))
(define students
(map
(lambda _
(define namegen (student-name-generator))
(define students
(map
(lambda _
- (hive-create-actor* hive <student>
- (#:name (namegen))))
+ (let ((name (namegen)))
+ (hive-create-actor* hive <student> name
+ #:name name)))
(iota num-students)))
;; Bootstrap each student into bothering-professor mode.
(iota num-students)))
;; Bootstrap each student into bothering-professor mode.