Updating code for make and fry changes

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

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index d3eca92f156b5fc2b1a8f7f61c2ff92713275d23..16066199edef33ea6eb32ff75740d5f1c37d7437 100755 (executable)
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -77,7 +77,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 ;
@@ -127,4 +127,4 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
     } case
     [ [ tuple-slots ] [ parameters>> ] bi append ] dip
     [ all-slots over [ length ] bi@ min head >quotation ] keep
-    '[ @ , boa ] call ;
+    '[ @ _ boa ] call ;