From f04c5f9c7fa91ccd1ce38c792fd18d180e0e6271 Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Sun, 3 Aug 2008 20:29:53 -0400
Subject: [PATCH] irc.ui: Fixed userlist sorting bug
---
extra/irc/ui/ui.factor | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 0c9fdee6e0..e9b098a67c 100755
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -125,8 +125,11 @@ M: irc-message write-irc
GENERIC: handle-inbox ( tab message -- )
+: lower-<=> ( x y -- <=> )
+ [ >lower ] bi@ <=> ;
+
: value-labels ( assoc val -- seq )
- '[ nip , = ] assoc-filter keys [ >lower <=> ] sort [ <label> ] map ;
+ '[ nip , = ] assoc-filter keys [ lower-<=> ] sort [ <label> ] map ;
: add-gadget-color ( pack seq color -- pack )
'[ , >>color add-gadget ] each ;