(start-agenda agenda
#:post-run-hook post-run-hook)))
-;; urhhghhhhhhhh
(define (inject-special! queue hive gm-id game-spec special-symbol)
(define gameobj-spec
(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."