managed-server: add another constructor.

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index a7414052abe86146d59fa4ab619cce92abdc5627..e60a5b24fd46272e97ea394ad3a91d830b306ac0 100644 (file)
--- 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