From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 2 Jan 2017 00:47:44 +0000 (-0600)
Subject: Use new <repl-manager>
X-Git-Tag: fosdem-2017~125
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=d45f1aca89f7f664137c16c0b6a3b39dc7445ffd;p=mudsync.git

Use new <repl-manager>
---

diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm
index 95fedb0..9b7c149 100644
--- a/mudsync/run-game.scm
+++ b/mudsync/run-game.scm
@@ -61,30 +61,30 @@
   (define gm
     (hive-create-actor-gimmie* hive <game-master> "gm"
                                #:new-conn-handler new-conn-handler))
+  (define repl-manager
+    (hive-create-actor* hive <repl-manager> "repl"))
+
   (define initial-tasks
     (list (bootstrap-message hive (actor-id gm) 'init-world
-                             #:game-spec game-spec)))
+                             #:game-spec game-spec)
+          (apply bootstrap-message hive repl-manager 'init
+                 (if (string? repl-server)
+                     `(#:path ,repl-server)
+                     '()))))
+
   (define agenda
     (make-agenda #:pre-unwind-handler print-error-and-continue
                  #:queue (list->q initial-tasks)))
 
   (set! %live-gm gm)
   (set! %live-hive hive)
+
   (receive (post-run-hook gameobj-injector)
       (make-special-injector agenda hive (actor-id gm))
     ;; Set up injector for live hacking
     (set! inject-gameobj! gameobj-injector)
 
-    ;; Set up REPL sever
-    (cond
-     ;; If repl-server is an integer, we'll use that as the port
-     ((integer? repl-server)
-      (spawn-and-queue-repl-server! agenda repl-server))
-     (repl-server
-      (spawn-and-queue-repl-server! agenda)))
-
-    (start-agenda agenda
-                  #:post-run-hook post-run-hook)))
+    (start-agenda agenda #:post-run-hook post-run-hook)))
 
 
 (define (do-inject-special! queue hive gm-id game-spec special-symbol)