factor: trim using lists

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

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
old mode 100755 (executable)
new mode 100644 (file)
index ae48d3a..0ae648e
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -1,15 +1,14 @@
 ! Copyright (C) 2008 Bruno Deferrari, Doug Coleman, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors concurrency.mailboxes destructors
-irc.client.base irc.client.chats irc.client.internals kernel
-namespaces sequences ;
+USING: accessors concurrency.mailboxes irc.client.base
+irc.client.internals kernel ;
 IN: irc.client
 
 : connect-irc ( 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 ;