handle-quit ( string -- )

Vocabulary

managed-server.chat

Inputs

string

an object

Outputs

None

Definition

USING: accessors kernel managed-server ;

IN: managed-server.chat

: handle-quit ( string -- )
    client [ object<< ] [ t >>quit? drop ] bi ;