Rename and add sorting words

[factor.git] / basis / escape-strings / escape-strings.factor

diff --git a/basis/escape-strings/escape-strings.factor b/basis/escape-strings/escape-strings.factor
index d595b1fead4f9fa55903425dd6d8ce672cb69a44..dadf2ab6a26bdcfa81018a355ad7029b7786ffcc 100644 (file)
--- a/basis/escape-strings/escape-strings.factor
+++ b/basis/escape-strings/escape-strings.factor
@@ -35,7 +35,7 @@ IN: escape-strings
     [ length ] histogram-by
     dup keys length [0..b]
     [ [ of ] keep over [ 10^ < ] [ nip ] if ] with find nip
-    [ '[ length _ = ] filter natural-sort ] keep ! remove natural-sort here
+    [ '[ length _ = ] filter sort ] keep ! remove sort here
     [
         [ drop "" ] [
             10^ <iota> [