Update reference to hive to be dynamic state, simplify create-actor.

[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)
-             (ice-9 format))
+             (ice-9 format)
+             (fibers conditions))
 
 (set! *random-state* (random-state-from-platform))
 (define (random-choice lst)
@@ -104,14 +105,14 @@
 (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)))
-            (bootstrap-actor* hive <student> name
-                              #:name name)))
+            (create-actor* <student> name
+                           #:name name)))
         (iota num-students)))
 
      ;; Bootstrap each student into bothering-professor mode.