X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fnetworking.scm;h=f12a7e0c86578927bcfa53d18eef1afb6a532ffb;hp=bb403f8f998fe1755076515114ba74f94590d870;hb=d23f2cefbde148dedc61da5cf35391a12c6734bb;hpb=6cff5b0062ef928204295ab4327bf2d417070421

diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index bb403f8..f12a7e0 100644
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -17,7 +17,7 @@
 ;;; along with Mudsync.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (mudsync networking)
-  #:use-module (8sync systems actors)
+  #:use-module (8sync actors)
   #:use-module (8sync agenda)
   #:use-module (ice-9 format)
   #:use-module (ice-9 match)
@@ -45,9 +45,11 @@
   ;; send input to this actor
   (send-input-to #:getter nm-send-input-to
                  #:init-keyword #:send-input-to)
-  (message-handler
+
+  (actions
+   #:allocation #:each-subclass
    #:init-value
-   (make-action-dispatch
+   (build-actions
     (start-listening
      (lambda* (actor message
                      #:key (server %default-server)
@@ -145,7 +147,8 @@
         (begin
           (nm-handle-line nm client client-id
                           (string-trim-right line #\return))
-          (loop))))
+          (when (actor-am-i-alive? nm)
+            (loop)))))
   (loop))
 
 (define (nm-handle-port-closed nm client client-id)