Merge branch 'master' of git://factorcode.org/git/factor

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

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index db25ba86d8914d3ea1449b6387c3a37b9ab443f9..94f80dcf0cadda6b9c2d68f8acf33f2c9772abb5 100755 (executable)
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -94,7 +94,7 @@ M: irc-message irc-message>server-line ( irc-message -- string )
 ! ======================================
 
 : split-at-first ( seq separators -- before after )
-    dupd '[ , member? ] find
+    dupd '[ _ member? ] find
         [ cut 1 tail ]
         [ swap ]
     if ;