]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/managed-server/chat/chat.factor
change threaded-server and managed-server to take an encoding
[factor.git] / extra / managed-server / chat / chat.factor
index e1331f360b418b87acaa890b28f27ca7c2435bcf..8835e3d8a64cbaf5e6554ddecc19055262ad8650 100644 (file)
@@ -100,8 +100,7 @@ Disconnects a user from the chat server."> "quit" add-command
     ] if ;
 
 : <chat-server> ( port -- managed-server )
-    "chat-server" chat-server new-managed-server
-        utf8 >>encoding ;
+    "chat-server" utf8 chat-server new-managed-server ;
 
 : handle-chat ( string -- )
     [