Updating code for make and fry changes

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

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 457a98482056a513f25dc0b4ae771d26507302bb..1e4bcf35f81911e238b5689518b7dd5ad964f09a 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -140,17 +140,17 @@ M: object time-happened drop now ;
 GENERIC: handle-inbox ( tab message -- )\r
 \r
 : value-labels ( assoc val -- seq )\r
-    '[ nip , = ] assoc-filter keys sort-strings [ <label> ] map ;\r
+    '[ nip _ = ] assoc-filter keys sort-strings [ <label> ] map ;\r
 \r
 : add-gadget-color ( pack seq color -- pack )\r
-    '[ , >>color add-gadget ] each ;\r
+    '[ _ >>color add-gadget ] each ;\r
 \r
 M: object handle-inbox\r
     nip print-irc ;\r
 \r
 : display ( stream tab -- )\r
-    '[ , [ [ t ]\r
-           [ , dup listener>> read-message handle-inbox ]\r
+    '[ _ [ [ t ]\r
+           [ _ dup listener>> read-message handle-inbox ]\r
            [  ] while ] with-output-stream ] "ircv" spawn drop ;\r
 \r
 : <irc-pane> ( tab -- tab pane )\r
@@ -168,7 +168,7 @@ TUPLE: irc-editor < editor outstream tab ;
       [ [ irc-tab? ] find-parent ]\r
       [ editor-string ]\r
       [ "" swap set-editor-string ] } cleave\r
-     '[ , irc-tab set , parse-message ] with-output-stream ;\r
+     '[ _ irc-tab set _ parse-message ] with-output-stream ;\r
 \r
 irc-editor "general" f {\r
     { T{ key-down f f "RET" } editor-send }\r