really disconnect someone if name is taken

2009-06-03 22:19:46 -05:00 · 2009-06-03 22:19:46 -05:00 · f6ac611a04
parent a506ddbbfc
commit f6ac611a04
1 changed files with 2 additions and 1 deletions
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@ -126,7 +126,8 @@ M: chat-server handle-client-disconnect
    ] "" append-outputs-as send-everyone ;

 M: chat-server handle-already-logged-in
-    username username-taken-string send-line ;
+    username username-taken-string send-line
+    t client (>>quit?) ;

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