actors: Switch hive-create-actor[*] to match create-actor[*]

[8sync.git] / tests / test-actors.scm

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 2b5298c81e7e73059a7f46950cfcceabf928667d..15191c4bbbc00b6582f9ffb643d33a5d119b2a07 100644 (file)
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -126,12 +126,9 @@
    (~display "lazy-rep> I'm not answering that.\n")))
 
 (let* ((hive (make-hive))
-       (customer (hive-create-actor hive <antsy-caller>
-                                    #:id-cookie "antsy-caller"))
-       (diligent-rep (hive-create-actor hive <diligent-rep>
-                                        #:id-cookie "diligent-rep"))
-       (lazy-rep (hive-create-actor hive <lazy-rep>
-                                    #:id-cookie "lazy-rep")))
+       (customer (hive-create-actor* hive <antsy-caller> "antsy-caller"))
+       (diligent-rep (hive-create-actor* hive <diligent-rep> "diligent-rep"))
+       (lazy-rep (hive-create-actor* hive <lazy-rep> "lazy-rep")))
   ;; * Playing a tape of a diligent service rep *
   (parameterize ((%record-out (open-output-string)))
     (let* ((result (ez-run-hive