Rename and add sorting words

[factor.git] / basis / unicode / unicode.factor

diff --git a/basis/unicode/unicode.factor b/basis/unicode/unicode.factor
index 9988f9606eca29b0d424de3262a467a175834905..cad7d0f2e0954becf6e1f6ca7dd574739f52ef72 100644 (file)
--- a/basis/unicode/unicode.factor
+++ b/basis/unicode/unicode.factor
@@ -212,7 +212,7 @@ PRIVATE>
     0 insensitive= ;
 
 : sort-strings ( strings -- sorted )
-    [ collation-key/nfd 2array ] map natural-sort values ;
+    [ collation-key/nfd 2array ] map sort values ;
 
 : string<=> ( str1 str2 -- <=> )
     [ collation-key/nfd 2array ] compare ;