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

2013-04-02 16:54:25 -07:00 · 2013-04-02 16:54:25 -07:00 · be1d3a21f6
parent c9fad35f09
commit be1d3a21f6
1 changed files with 1 additions and 1 deletions
--- 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 ;