From 4b9b14308da4082ed96fdd15dcdc5a449116b9ee Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 2 Apr 2013 16:54:25 -0700 Subject: [PATCH] regexp.minimize: use sort-pair instead of natural-sort. --- basis/regexp/minimize/minimize.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/regexp/minimize/minimize.factor b/basis/regexp/minimize/minimize.factor index e454a99c8b..a8dbaa7ed3 100644 --- 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 ;