irc.ui: Fixed userlist sorting bug

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 0c9fdee6e0efe18123ec864791c77e44e411a587..e9b098a67c89ad80d2134b25c00cdf91d47ac600 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -125,8 +125,11 @@ M: irc-message write-irc
 \r
 GENERIC: handle-inbox ( tab message -- )\r
 \r
+: lower-<=> ( x y -- <=> )\r
+    [ >lower ] bi@ <=> ;\r
+\r
 : value-labels ( assoc val -- seq )\r
-    '[ nip , = ] assoc-filter keys [ >lower <=> ] sort [ <label> ] map ;\r
+    '[ nip , = ] assoc-filter keys [ lower-<=> ] sort [ <label> ] map ;\r
 \r
 : add-gadget-color ( pack seq color -- pack )\r
     '[ , >>color add-gadget ] each ;\r