compiler.cfg.*: a bunch of new tests

[factor.git] / basis / compiler / cfg / dominance / dominance-tests.factor

diff --git a/basis/compiler/cfg/dominance/dominance-tests.factor b/basis/compiler/cfg/dominance/dominance-tests.factor
index d1f729ca62730b63625f3ffd745d71192e2ed22e..0bcdd43a7e6439c3e2e893d865ba957f4b62ea50 100644 (file)
--- a/basis/compiler/cfg/dominance/dominance-tests.factor
+++ b/basis/compiler/cfg/dominance/dominance-tests.factor
@@ -75,17 +75,7 @@ V{ } 5 test-bb
 [ t ] [ 0 5 [a,b] [ get dom-parent 0 get eq? ] all? ] unit-test
 
 : non-det-test ( -- cfg )
-    {
-        { 0 { } }
-        { 1 { } }
-        { 2 { } }
-        { 3 { } }
-        { 4 { } }
-        { 5 { } }
-        { 6 { } }
-        { 7 { } }
-        { 8 { } }
-    } [ over insns>block ] assoc-map dup
+    9 iota [ V{ } clone over insns>block ] { } map>assoc dup
     {
         { 0 1 }
         { 1 2 } { 1 7 }