diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor index a7414052ab..e60a5b24fd 100644 --- 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