irc.ui: Fixed userlist sorting bug

db4
William Schlieper 2008-08-03 20:29:53 -04:00
parent 64bed4e44e
commit f04c5f9c7f
1 changed files with 4 additions and 1 deletions

View File

@ -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 ;