sequences: Add 1surround which is dup surround

[factor.git] / extra / managed-server / chat / chat.factor

diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor
index c425890c402bc05e8a921798157ea8763fd70793..74aa37f4b0a448a611d1ab12bc156c0cf314b371 100644 (file)
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@@ -120,7 +120,7 @@ M: chat-server handle-client-join
 M: chat-server handle-client-disconnect
     [
         line-beginning username " has quit  "
-        client object>> dup [ "\"" dup surround ] when
+        client object>> dup [ "\"" 1surround ] when
     ] "" append-outputs-as send-everyone ;
 
 M: chat-server handle-already-logged-in