X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgame-master.scm;h=b8030d9d72a4f2114183576683561909e726fd1c;hp=0a53389aef6865e24ae7ee5624e281022e03bed5;hb=ca990b14f563fc450548954184ff6fc0e4792739;hpb=6cff5b0062ef928204295ab4327bf2d417070421

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 0a53389..b8030d9 100644
--- a/mudsync/game-master.scm
+++ b/mudsync/game-master.scm
@@ -49,16 +49,17 @@
   (new-conn-handler #:getter gm-new-conn-handler
                     #:init-keyword #:new-conn-handler)
 
-  (message-handler
+  (actions
+   #:allocation #:each-subclass
    #:init-value
-   (make-action-dispatch
-    (init-world (wrap-apply gm-init-world))
-    (client-input (wrap-apply gm-handle-client-input))
-    (lookup-special (wrap-apply gm-lookup-special))
-    (new-client (wrap-apply gm-new-client))
-    (write-home (wrap-apply gm-write-home))
-    (client-closed (wrap-apply gm-client-closed))
-    (inject-special! (wrap-apply gm-inject-special!)))))
+   (mhandlers
+    (init-world gm-init-world)
+    (client-input gm-handle-client-input)
+    (lookup-special gm-lookup-special)
+    (new-client gm-new-client)
+    (write-home gm-write-home)
+    (client-closed gm-client-closed)
+    (inject-special! gm-inject-special!))))
 
 
 ;;; .. begin world init stuff ..
@@ -149,8 +150,7 @@
       #:input data))
 
 (define* (gm-lookup-special actor message #:key symbol)
-  (<-reply actor message
-           #:val (hash-ref (slot-ref actor 'special-dir) symbol)))
+  (<-reply actor message (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)