factor: fix some spacing

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

diff --git a/extra/irc/client/chats/chats.factor b/extra/irc/client/chats/chats.factor
index 5b90cd45227ff436af76b02e8c06668e5a7b75af..5ba7584c5e6e5c94d51a66958f964f5a85d5a104 100644 (file)
--- a/extra/irc/client/chats/chats.factor
+++ b/extra/irc/client/chats/chats.factor
@@ -13,11 +13,11 @@ TUPLE: irc-nick-chat    < irc-chat name ;
 SYMBOL: +server-chat+
 
 : <irc-server-chat> ( -- irc-server-chat )
-     irc-server-chat new
+    irc-server-chat new
          <mailbox> >>in-messages ;
 
 : <irc-channel-chat> ( name -- irc-channel-chat )
-     irc-channel-chat new
+    irc-channel-chat new
          swap       >>name
          <mailbox>  >>in-messages
          f          >>password
@@ -25,7 +25,7 @@ SYMBOL: +server-chat+
          t          >>clear-participants ;
 
 : <irc-nick-chat> ( name -- irc-nick-chat )
-     irc-nick-chat new
+    irc-nick-chat new
          swap      >>name
          <mailbox> >>in-messages ;
 
@@ -33,9 +33,9 @@ TUPLE: irc-profile server port nickname password ;
 C: <irc-profile> irc-profile
 
 TUPLE: irc-client profile stream in-messages out-messages
-       chats is-running nick connect is-ready
-       reconnect-time reconnect-attempts
-       exceptions ;
+    chats is-running nick connect is-ready
+    reconnect-time reconnect-attempts
+    exceptions ;
 
 : <irc-client> ( profile -- irc-client )
     dup nickname>> irc-client new