irc.client: Make add-listener a word instead of a generic method

db4
Bruno Deferrari 2008-06-18 23:58:10 -03:00
parent fac1feaf15
commit 646a4dd925
1 changed files with 2 additions and 3 deletions

View File

@ -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 ;