managed-server: add another constructor.

2016-05-20 19:42:03 -07:00 · 2016-05-20 19:42:03 -07:00 · 936333f1b7
parent b66cebfb86
commit 936333f1b7
1 changed files with 5 additions and 0 deletions
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@ -103,3 +103,8 @@ M: managed-server handle-client*
        swap >>insecure
        f >>timeout
        H{ } clone >>clients ; inline
+
+: new-managed-server* ( encoding class -- server )
+    new-threaded-server
+        f >>timeout
+        H{ } clone >>clients ; inline