 Displays the documentation for a command.">
 "help" add-command
 
-[ drop clients keys ", " join print flush ]
+[ drop clients keys [ "``" "''" surround ] map ", " join print flush ]
 <" Syntax: /who
 Shows the list of connected users.">
 "who" add-command

        [ "Unknown command: " prepend print flush ] if
    ] if-empty ;

:: add-command ( quot docs key -- )
    quot key commands get set-at
    docs key chat-docs get set-at ;

    ] "" append-outputs-as send-everyone ;

M: chat-server handle-already-logged-in
    username username-taken-string print flush ;

M: chat-server handle-managed-client*
    readln dup f = [ t client (>>quit?) ] when
