handle-managed-client ( -- )

Vocabulary

managed-server.private

Inputs

None

Outputs

None

Definition

USING: accessors kernel managed-server namespaces ;

IN: managed-server.private

: handle-managed-client ( -- )
    handle-login <managed-client> managed-client set
    maybe-login-client [
        handle-client-join
        [ handle-managed-client* client quit?>> not ] loop
    ] when-logged-in ;