From 98d25d8416dfd676bd4df78302b9199bd4e57695 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 15 Sep 2009 16:36:59 -0700 Subject: [PATCH] irc.client: fix suggested by ceninan --- extra/irc/client/client.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index ae48d3ac4e..3f1dba353c 100755 --- a/extra/irc/client/client.factor +++ b/extra/irc/client/client.factor @@ -9,7 +9,7 @@ IN: irc.client [ (connect-irc) (do-login) spawn-irc ] with-irc ; : attach-chat ( irc-chat irc-client -- ) [ (attach-chat) ] with-irc ; -: detach-chat ( irc-chat -- ) dup [ client>> remove-chat ] with-irc ; +: detach-chat ( irc-chat -- ) dup client>> [ remove-chat ] with-irc ; : speak ( message irc-chat -- ) dup client>> [ (speak) ] with-irc ; : hear ( irc-chat -- message ) in-messages>> mailbox-get ; : terminate-irc ( irc-client -- ) [ (terminate-irc) ] with-irc ;