X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Frun-game.scm;h=ff58f23a91beadd32c95f2212f23110dc5ba1fea;hp=0bbf759b8e3e13e5de5228cd6c6d7a9f0ff4792d;hb=a1f2eb03faa50232cee704a2ad710d26da918cba;hpb=0580e6a2294089a142923e4fba9b345d7442af79

diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm
index 0bbf759..ff58f23 100644
--- a/mudsync/run-game.scm
+++ b/mudsync/run-game.scm
@@ -31,7 +31,7 @@
 
             ;; Debug stuff, might go away
             %live-gm %live-hive
-            inject!))
+            inject-gameobj!))
 
 
 ;;; Debugging stuff
@@ -46,7 +46,7 @@
 ;; "quasi-evil for productivity's sake" anyway).  You can set up your own
 ;; solution which doesn't use a global though.
 
-(define (inject! game-spec special-symbol)
+(define (inject-gameobj! game-spec special-symbol)
   (display "Game hasn't been started...\n"))
 
 
@@ -73,7 +73,7 @@
   (receive (post-run-hook gameobj-injector)
       (make-special-injector agenda hive (actor-id gm))
     ;; Set up injector for live hacking
-    (set! inject! gameobj-injector)
+    (set! inject-gameobj! gameobj-injector)
 
     ;; Set up REPL sever
     (cond
@@ -86,7 +86,6 @@
     (start-agenda agenda
                   #:post-run-hook post-run-hook)))
 
-;; urhhghhhhhhhh
 
 (define (inject-special! queue hive gm-id game-spec special-symbol)
   (define gameobj-spec
@@ -99,7 +98,8 @@
     (bootstrap-message hive gm-id 'inject-special!
                        #:special-symbol special-symbol
                        #:gameobj-spec gameobj-spec))
-  (enq! queue task))
+  (enq! queue task)
+  'done)
 
 (define (queue-injected-tasks-on-agenda! agenda inject-queue)
   "Inject tasks from the inject-queue onto the agenda queue."