X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Factors%2Fbotherbotherbother.scm;h=abccd4e0568bba50155d7ef0b5ede7fbdda8f989;hb=2785c244a09fc008488385b10053ef854fb27c34;hp=2e72b2d21034ac5ad7eb41c35485b27f47ad319a;hpb=dc2155083a90de90e24f5341b837d4d96ce2898c;p=8sync.git

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
index 2e72b2d..abccd4e 100755
--- a/demos/actors/botherbotherbother.scm
+++ b/demos/actors/botherbotherbother.scm
@@ -111,14 +111,14 @@
 (define (main . args)
   (define agenda (make-agenda))
   (define hive (make-hive))
-  (define professor (hive-create-actor* hive <professor> "prof"))
+  (define professor (bootstrap-actor* hive <professor> "prof"))
   (define namegen (student-name-generator))
   (define students
     (map
      (lambda _
        (let ((name (namegen)))
-         (hive-create-actor* hive <student> name
-                             #:name name)))
+         (bootstrap-actor* hive <student> name
+                           #:name name)))
      (iota num-students)))
 
   ;; Bootstrap each student into bothering-professor mode.