X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Frun-game.scm;h=daedf180dfcdee055fff85b604049ed44e378b14;hp=0bbf759b8e3e13e5de5228cd6c6d7a9f0ff4792d;hb=50cd2aba8f13ec7aecb58a683aa55ae665cf83ab;hpb=0580e6a2294089a142923e4fba9b345d7442af79 diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm index 0bbf759..daedf18 100644 --- 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."