Rename and add sorting words

[factor.git] / basis / math / primes / factors / factors.factor

diff --git a/basis/math/primes/factors/factors.factor b/basis/math/primes/factors/factors.factor
index e492cbe5000ce6b0db226c2c5ad34037efd6e94f..20a485e46fc10ab79c43db098676ea84e407f000 100644 (file)
--- a/basis/math/primes/factors/factors.factor
+++ b/basis/math/primes/factors/factors.factor
@@ -24,7 +24,7 @@ IN: math.primes.factors
     ] [
         group-factors dup empty? [
             [ first2 [0..b] [ ^ ] with map ] map
-            [ product ] product-map natural-sort
+            [ product ] product-map sort
         ] unless
     ] if ;