X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Factors%2Fbotherbotherbother.scm;h=57b20ff22a78abd9d6b2c685b3073969856d5aab;hb=38afa0b278e17953b64764d800beaaa6368f70be;hp=69f3190faa291ccf43837b624d473ebc98bacb1a;hpb=57b7dfc7a351017e09bd158889ed45fa57e51289;p=8sync.git

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
index 69f3190..57b20ff 100755
--- 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.