irc.client: Rename word

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index c7b97842704c77c04d7aae3704524d591bc15f2e..86f97f37a95c31862b3c718da835f25d5c2ec358 100644 (file)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -220,13 +220,13 @@ M: privmsg handle-outgoing-irc ( privmsg -- )
     irc-client> in-messages>> mailbox-get handle-incoming-irc ;
 
 ! FIXME: Hack, this should be handled better
-GENERIC: add-name ( name obj -- obj )
-M: object add-name nip ;
-M: privmsg add-name swap >>name ;
+GENERIC: annotate-message-with-name ( name obj -- obj )
+M: object annotate-message-with-name nip ;
+M: privmsg annotate-message-with-name swap >>name ;
 
 : listener-loop ( name -- ) ! FIXME: take different values from the stack?
     dup irc-client> listeners>> at [
-        out-messages>> mailbox-get add-name
+        out-messages>> mailbox-get annotate-message-with-name
         irc-client> out-messages>>
         mailbox-put
     ] [