Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / irc / client / participants / participants.factor

diff --git a/extra/irc/client/participants/participants.factor b/extra/irc/client/participants/participants.factor
index 8d367dbb95cd562bbc0bcfa8599535537f74e0b0..d2b2e1599968e36bd0a539a87dac973c13879962 100644 (file)
--- a/extra/irc/client/participants/participants.factor
+++ b/extra/irc/client/participants/participants.factor
@@ -37,8 +37,8 @@ M: irc-channel-chat has-participant? participants>> key? ;
 
 : apply-mode ( ? participant mode -- )
     {
-        { CHAR: o [ (>>operator) ] }
-        { CHAR: v [ (>>voice) ] }
+        { CHAR: o [ operator<< ] }
+        { CHAR: v [ voice<< ] }
         [ 3drop ]
     } case ;