regexp.minimize: use sort-pair instead of natural-sort.

diff --git a/basis/regexp/minimize/minimize.factor b/basis/regexp/minimize/minimize.factor
index e454a99c8bf7413cd336b2e8a4434e5e1b6db43b..a8dbaa7ed3bd13c5541a5a404ba30eb37f7a7da3 100644 (file)
--- a/basis/regexp/minimize/minimize.factor
+++ b/basis/regexp/minimize/minimize.factor
@@ -34,7 +34,7 @@ IN: regexp.minimize
     ] each out ;
 
 : same-partition? ( s1 s2 partitions -- ? )
-    { [ [ 2array natural-sort ] dip key? ] [ drop = ] } 3|| ;
+    { [ [ sort-pair 2array ] dip key? ] [ drop = ] } 3|| ;
 
 : assemble-values ( assoc1 assoc2 -- values )
     dup keys '[ _ swap [ at ] curry map ] bi@ zip ;