if-empty changes

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

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 1aebfcbfcb684b0fe76d4d942703723070fefbe4..457a98482056a513f25dc0b4ae771d26507302bb 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -32,8 +32,8 @@ TUPLE: irc-tab < frame listener client window ;
 : dark-green T{ rgba f 0.0 0.5 0.0 1 } ;\r
 \r
 : dot-or-parens ( string -- string )\r
-    dup empty? [ drop "." ]\r
-    [ "(" prepend ")" append ] if ;\r
+    [ "." ]\r
+    [ "(" prepend ")" append ] if-empty ;\r
 \r
 GENERIC: write-irc ( irc-message -- )\r
 \r