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 d788eb3c2c4f0a769cf9f74672ddde0f4bb45ae2..f360273fdabe9642b44fa0cb3ace35ca9d72edb7 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -28,9 +28,9 @@ TUPLE: irc-tab < frame chat client window ;
 \r
 : write-color ( str color -- )\r
     foreground associate format ;\r
-: dark-red T{ rgba f 0.5 0.0 0.0 1 } ;\r
-: dark-green T{ rgba f 0.0 0.5 0.0 1 } ;\r
-: dark-blue T{ rgba f 0.0 0.0 0.5 1 } ;\r
+CONSTANT: dark-red T{ rgba f 0.5 0.0 0.0 1 }\r
+CONSTANT: dark-green T{ rgba f 0.0 0.5 0.0 1 }\r
+CONSTANT: dark-blue T{ rgba f 0.0 0.0 0.5 1 }\r
 \r
 : dot-or-parens ( string -- string )\r
     [ "." ]\r