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

db4
John Benediktsson 2013-04-02 16:54:25 -07:00
parent fd7ec79b20
commit 4b9b14308d
1 changed files with 1 additions and 1 deletions

View File

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