projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Reflect removal of choice of whether to cleanup in self-destruct
[8sync.git]
/
demos
/
actors
/
botherbotherbother.scm
diff --git
a/demos/actors/botherbotherbother.scm
b/demos/actors/botherbotherbother.scm
index 69f3190faa291ccf43837b624d473ebc98bacb1a..57b20ff22a78abd9d6b2c685b3073969856d5aab 100755
(executable)
--- a/
demos/actors/botherbotherbother.scm
+++ b/
demos/actors/botherbotherbother.scm
@@
-25,7
+25,8
@@
(use-modules (8sync actors)
(oop goops)
(ice-9 hash-table)
(use-modules (8sync actors)
(oop goops)
(ice-9 hash-table)
- (ice-9 format))
+ (ice-9 format)
+ (fibers conditions))
(set! *random-state* (random-state-from-platform))
(define (random-choice lst)
(set! *random-state* (random-state-from-platform))
(define (random-choice lst)
@@
-104,14
+105,14
@@
(define (main . args)
(run-hive
(lambda (hive)
(define (main . args)
(run-hive
(lambda (hive)
- (define professor (
bootstrap-actor* hive
<professor> "prof"))
+ (define professor (
create-actor*
<professor> "prof"))
(define namegen (student-name-generator))
(define students
(map
(lambda _
(let ((name (namegen)))
(define namegen (student-name-generator))
(define students
(map
(lambda _
(let ((name (namegen)))
- (
bootstrap-actor* hive
<student> name
-
#:name name)))
+ (
create-actor*
<student> name
+ #:name name)))
(iota num-students)))
;; Bootstrap each student into bothering-professor mode.
(iota num-students)))
;; Bootstrap each student into bothering-professor mode.