factor: fix some spacing

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

diff --git a/extra/irc/client/internals/internals.factor b/extra/irc/client/internals/internals.factor
index 03632f41f5892f315765969f22f17f0c2017f212..adfc191cb0059776317bc328a5f1444ac2b58b65 100644 (file)
--- a/extra/irc/client/internals/internals.factor
+++ b/extra/irc/client/internals/internals.factor
@@ -46,10 +46,10 @@ IN: irc.client.internals
     ] [ (terminate-irc) ] if* ;
 
 : (do-login) ( -- )
-     irc>
-     [ profile>> password>> [ /PASS ] when* ]
-     [ nick>> /LOGIN ]
-     bi ;
+    irc>
+    [ profile>> password>> [ /PASS ] when* ]
+    [ nick>> /LOGIN ]
+    bi ;
 
 GENERIC: initialize-chat ( chat -- )
 M: irc-chat         initialize-chat drop ;