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

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index e633f140fbd173218b3c17553955b2a3ce92271b..7760c3a2f30899a817d629e66da9ee26028f9c91 100644 (file)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -326,6 +326,5 @@ PRIVATE>
         spawn-irc
     ] with-variable ;
 
-GENERIC: add-listener ( irc-client irc-listener -- )
-M: irc-listener add-listener ( irc-client irc-listener -- )
-    current-irc-client swap '[ , (add-listener) ] with-variable ;
+: irc-listener add-listener ( irc-listener irc-client -- )
+    current-irc-client '[ , (add-listener) ] with-variable ;