X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgame-master.scm;fp=mudsync%2Fgame-master.scm;h=6a06cb7bf1af4de62be822c901c8283568cc26ab;hp=9ced9fadfdf5b4ee90259e145e9b19f75c843acb;hb=0580e6a2294089a142923e4fba9b345d7442af79;hpb=699a7583254e0f1da02b82f9076bf5513219a359

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 9ced9fa..6a06cb7 100644
--- a/mudsync/game-master.scm
+++ b/mudsync/game-master.scm
@@ -56,7 +56,8 @@
     (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)))))
+    (client-closed (wrap-apply gm-client-closed))
+    (inject-special! (wrap-apply gm-inject-special!)))))
 
 
 ;;; .. begin world init stuff ..
@@ -169,6 +170,13 @@
     (gm-unregister-client! gm client)))
 
 
+(define-mhandler (gm-inject-special! gm message
+                                     special-symbol gameobj-spec)
+  "Inject, possiibly replacing the original, special symbol
+using the gameobj-spec."
+  (pk 'special-symbol special-symbol)
+  (pk 'gameobj-spec gameobj-spec))
+
 ;;; GM utilities
 
 (define (gm-register-client! gm client-id player)