Rename and add sorting words

[factor.git] / basis / compiler / tree / def-use / simplified / simplified-tests.factor

diff --git a/basis/compiler/tree/def-use/simplified/simplified-tests.factor b/basis/compiler/tree/def-use/simplified/simplified-tests.factor
index c810230f4d3b2ac7e23a410a0aac309232979240..40d6fd748d1593911444bf3295a9fb4915e34080 100644 (file)
--- a/basis/compiler/tree/def-use/simplified/simplified-tests.factor
+++ b/basis/compiler/tree/def-use/simplified/simplified-tests.factor
@@ -6,7 +6,7 @@ IN: compiler.tree.def-use.simplified
 { { #call #return } } [
     [ 1 dup reverse ] build-tree compute-def-use
     first out-d>> first actually-used-by
-    [ node>> class-of ] map natural-sort
+    [ node>> class-of ] map sort
 ] unit-test
 
 : word-1 ( a -- b ) dup [ word-1 ] when ; inline recursive
@@ -14,11 +14,11 @@ IN: compiler.tree.def-use.simplified
 { { #introduce } } [
     [ word-1 ] build-tree analyze-recursive compute-def-use
     last in-d>> first actually-defined-by
-    [ node>> class-of ] map natural-sort
+    [ node>> class-of ] map sort
 ] unit-test
 
 { { #if #return } } [
     [ word-1 ] build-tree analyze-recursive compute-def-use
     first out-d>> first actually-used-by
-    [ node>> class-of ] map natural-sort
+    [ node>> class-of ] map sort
 ] unit-test