steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

really disconnect someone if name is taken

db4
Doug Coleman 2009-06-03 22:19:46 -05:00
parent a506ddbbfc
commit f6ac611a04
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/managed-server/chat/chat.factor
View File

@ -126,7 +126,8 @@ M: chat-server handle-client-disconnect
] "" append-outputs-as send-everyone ; ] "" append-outputs-as send-everyone ;
M: chat-server handle-already-logged-in 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* M: chat-server handle-managed-client*
readln dup f = [ t client (>>quit?) ] when readln dup f = [ t client (>>quit?) ] when