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

diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm
index ff58f23..95fedb0 100644
--- a/mudsync/run-game.scm
+++ b/mudsync/run-game.scm
@@ -20,13 +20,13 @@
   #:use-module (mudsync game-master)
   #:use-module (8sync agenda)
   #:use-module (8sync repl)
-  #:use-module (8sync systems actors)
-  #:use-module (8sync systems actors debug)
+  #:use-module (8sync actors)
+  #:use-module (8sync debug)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 receive)
   #:use-module (ice-9 q)
   #:export (run-demo
-            inject-special!
+            do-inject-special!
             make-special-injector
 
             ;; Debug stuff, might go away
@@ -87,7 +87,7 @@
                   #:post-run-hook post-run-hook)))
 
 
-(define (inject-special! queue hive gm-id game-spec special-symbol)
+(define (do-inject-special! queue hive gm-id game-spec special-symbol)
   (define gameobj-spec
     (or (find
          (lambda (entry) (eq? (car entry) special-symbol))
@@ -113,5 +113,5 @@
    (lambda (agenda)
      (queue-injected-tasks-on-agenda! agenda inject-queue))
    (lambda (game-spec special-symbol)
-     (inject-special! inject-queue hive gm-id
-                      game-spec special-symbol))))
+     (do-inject-special! inject-queue hive gm-id
+                         game-spec special-symbol))))