X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Factors%2Frobotscanner.scm;h=256b3a321686927ad760e8d93556f1a183c28f90;hb=2e61438643691be6b1ba232459801b9745689a41;hp=52f96e0bf20f6ca72df9cb1679cf3544737c9555;hpb=57b7dfc7a351017e09bd158889ed45fa57e51289;p=8sync.git

diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm
index 52f96e0..256b3a3 100644
--- a/demos/actors/robotscanner.scm
+++ b/demos/actors/robotscanner.scm
@@ -60,9 +60,9 @@
        (match-lambda
          ((clean-droids infected-droids)
           ;; Create this room
-          (define room (create-actor* actor <warehouse-room> "room"))
+          (define room (create-actor* <warehouse-room> "room"))
           (define* (init-droid #:key infected)
-            (define droid (create-actor* actor <droid> "droid"
+            (define droid (create-actor* <droid> "droid"
                                          #:infected infected
                                          #:room room))
             (<-wait droid 'register-with-room))
@@ -95,7 +95,7 @@
 
       ;; Add security robot
       (let ((security-robot
-             (create-actor actor <security-robot>)))
+             (create-actor <security-robot>)))
         (<- security-robot 'begin-mission
             #:starting-room first-room
             #:overseer (actor-id actor)))))
@@ -265,7 +265,6 @@
   (run-hive
    (lambda (hive)
      (define done? (make-condition))
-     (define overseer (bootstrap-actor hive <overseer>
-                                       #:done? done?))
+     (define overseer (create-actor <overseer> #:done? done?))
      (<- overseer 'init-world)
      (wait done?))))