From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 2 Jan 2017 00:48:09 +0000 (-0600)
Subject: Only keep looping while the actor is alive
X-Git-Tag: fosdem-2017~124
X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=d23f2cefbde148dedc61da5cf35391a12c6734bb

Only keep looping while the actor is alive
---

diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index c2c1068..f12a7e0 100644
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -147,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)