Most of the rest of support for live hacking!

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

diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm
index 0bbf759b8e3e13e5de5228cd6c6d7a9f0ff4792d..daedf180dfcdee055fff85b604049ed44e378b14 100644 (file)
--- a/mudsync/run-game.scm
+++ b/mudsync/run-game.scm
@@ -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."