From 80c9fe3c83b5890fe14cc7b499a268299e8b26ca Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 11 Feb 2008 16:10:03 -0600
Subject: [PATCH] Add stop-server word

---
 extra/io/server/server.factor | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/extra/io/server/server.factor b/extra/io/server/server.factor
index a23984c207..5cb5aa5592 100755
--- a/extra/io/server/server.factor
+++ b/extra/io/server/server.factor
@@ -26,8 +26,10 @@ LOG: accepted-connection NOTICE
 : server-loop ( server quot -- )
     [ accept-loop ] curry with-disposal ; inline
 
+SYMBOL: servers
+
 : spawn-server ( addrspec quot -- )
-    >r <server> r> server-loop ; inline
+    >r <server> dup servers get push r> server-loop ; inline
 
 \ spawn-server NOTICE add-error-logging
 
@@ -39,9 +41,13 @@ LOG: accepted-connection NOTICE
 
 : with-server ( seq service quot -- )
     [
+        V{ } clone servers set
         [ spawn-server ] curry concurrency:parallel-each
     ] curry with-logging ; inline
 
+: stop-server ( -- )
+    servers get [ dispose ] each ;
+
 : received-datagram ( addrspec -- ) drop ;
 
 \ received-datagram NOTICE add-input-logging