Update codebase to use 8sync-fibers

[mudsync.git] / mudsync / game-master.scm

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 7b93a3bf25d40ece239fe4bd6de35b3313779fbc..7b135c14a5676ec939284f8dda3dfbb3a8c999b5 100644 (file)
--- a/mudsync/game-master.scm
+++ b/mudsync/game-master.scm
@@ -88,7 +88,7 @@
        ((symbol class loc args ...)
         ;; initialize the special object
         (let ((special-obj
-               (apply create-actor* gm class
+               (apply create-actor* class
                       ;; set cookie to be the object's symbol
                       (symbol->string symbol)
                       #:gm (actor-id gm)
@@ -121,8 +121,8 @@
 (define (gm-setup-network gm)
   ;; Create a default network manager if none available
   (slot-set! gm 'network-manager
-             (create-actor* gm <network-manager> "netman"
-                       #:send-input-to (actor-id gm)))
+             (create-actor* <network-manager> "netman"
+                            #:send-input-to (actor-id gm)))
 
   ;; TODO: Add host and port options
   (<-wait (gm-network-manager gm) 'start-listening))
@@ -150,7 +150,7 @@
       #:input data))
 
 (define* (gm-lookup-special actor message #:key symbol)
-  (<-reply message (hash-ref (slot-ref actor 'special-dir) symbol)))
+  (hash-ref (slot-ref actor 'special-dir) symbol))
 
 (define* (gm-write-home actor message #:key text)
   (define client-id (hash-ref (gm-reverse-client-dir actor)
@@ -186,7 +186,7 @@ using the gameobj-spec."
     (((? (cut eq? <> special-symbol) symbol) class loc args ...)
      ;; initialize the special object
      (let ((special-obj
-            (apply create-actor* gm class
+            (apply create-actor* class
                    ;; set cookie to be the object's symbol
                    (symbol->string symbol)
                    #:gm (actor-id gm)
@@ -239,7 +239,7 @@ with an anonymous persona"
               (hash-ref (gm-special-dir gm) default-room))
              ;; create and register the player
              (player
-              (create-actor* gm (@@ (mudsync player) <player>) "player"
+              (create-actor* (@@ (mudsync player) <player>) "player"
                              #:name guest-name
                              #:gm (actor-id gm)
                              #:client client-id)))