Updating mudsync for 8sync suspendable-ports refactor

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

diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm
index daedf180dfcdee055fff85b604049ed44e378b14..6bacfcd573d7de43fa01b542fede6a9487b1c4d6 100644 (file)
--- a/mudsync/run-game.scm
+++ b/mudsync/run-game.scm
@@ -26,12 +26,12 @@
   #: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
             %live-gm %live-hive
-            inject!))
+            inject-gameobj!))
 
 \f
 ;;; 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
@@ -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))))