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

[factor.git] / extra / irc / messages / parser / parser.factor

diff --git a/extra/irc/messages/parser/parser.factor b/extra/irc/messages/parser/parser.factor
index 06a41b0aaab409bfa8fe106656e343dd8b94fea2..34606eb83afed3ed7ea3bb30453506f6aba41df7 100644 (file)
--- a/extra/irc/messages/parser/parser.factor
+++ b/extra/irc/messages/parser/parser.factor
@@ -31,5 +31,5 @@ PRIVATE>
     [ >>parameters ]
     [ >>trailing ]
     tri*
-    [ (>>prefix) ] [ fill-irc-message-slots ] [ swap >>line ] tri
+    [ prefix<< ] [ fill-irc-message-slots ] [ swap >>line ] tri
     dup sender >>sender ;