factor: words -> split-words, lines -> split-lines, fix errors

[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 9d28f33503bf0c5f88ae628bb5b428965ec538fe..991813f4d3df621b5cb7ac0a9b76254e1820d987 100644 (file)
--- a/extra/irc/messages/parser/parser.factor
+++ b/extra/irc/messages/parser/parser.factor
@@ -13,7 +13,7 @@ IN: irc.messages.parser
 : split-message ( string -- prefix command parameters trailing )
     ":" ?head [ " " split1 ] [ f swap ] if
     ":" split1
-    [ words harvest unclip swap ] dip ;
+    [ split-words harvest unclip swap ] dip ;
 
 : sender ( irc-message -- sender )
     prefix>> [ ":" ?head drop "!" split-at-first drop ] [ f ] if* ;