managed-server: add another constructor.
parent
b66cebfb86
commit
936333f1b7
|
@ -103,3 +103,8 @@ M: managed-server handle-client*
|
||||||
swap >>insecure
|
swap >>insecure
|
||||||
f >>timeout
|
f >>timeout
|
||||||
H{ } clone >>clients ; inline
|
H{ } clone >>clients ; inline
|
||||||
|
|
||||||
|
: new-managed-server* ( encoding class -- server )
|
||||||
|
new-threaded-server
|
||||||
|
f >>timeout
|
||||||
|
H{ } clone >>clients ; inline
|
||||||
|
|
Loading…
Reference in New Issue