Merge branch 'for-slava' of git://git.rfc1149.net/factor

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

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 791639d260f47eef55d33945281c6b903b996022..f360273fdabe9642b44fa0cb3ace35ca9d72edb7 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -152,7 +152,7 @@ M: object handle-inbox
 : display ( stream tab -- )\r
     '[ _ [ [ t ]\r
            [ _ dup chat>> hear handle-inbox ]\r
-           [  ] while ] with-output-stream ] "ircv" spawn drop ;\r
+           while ] with-output-stream ] "ircv" spawn drop ;\r
 \r
 : <irc-pane> ( tab -- tab pane )\r
     <scrolling-pane>\r