From f6ac611a0495a80db24216959f0b950e9f689042 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 3 Jun 2009 22:19:46 -0500 Subject: [PATCH] really disconnect someone if name is taken --- extra/managed-server/chat/chat.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor index 4e841ec95e..f60445c48f 100644 --- 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