Working on fixing scheduling

diff --git a/basis/compiler/cfg/dependence/dependence.factor b/basis/compiler/cfg/dependence/dependence.factor
index 57630627991cd887b1deccd3f5a327f38328243a..dd3ceaab13516bd2bf5af5a7f907ef8ce34ef426 100644 (file)
--- a/basis/compiler/cfg/dependence/dependence.factor
+++ b/basis/compiler/cfg/dependence/dependence.factor
@@ -148,6 +148,14 @@ DEFER: follow-tree
     [ [ >>parent drop ] with each ]
     [ >>children drop ] 2bi ;
 
+: attach-parent ( node -- )
+    drop ;
+
+: make-trees ( -- trees )
+    nodes get
+    [ [ attach-parent ] each ]
+    [ [ parent>> not ] filter ] bi ;
+
 ERROR: node-missing-parent trees nodes ;
 ERROR: node-missing-children trees nodes ;
 
@@ -168,13 +176,8 @@ ERROR: node-missing-children trees nodes ;
 : verify-trees ( trees -- trees )
     verify-parents verify-children ;
 
-: make-trees ( -- trees )
-    [
-        roots get [ dup , follow-tree ] each
-    ] { } make verify-trees ;
-
 : build-fan-in-trees ( -- )
-    make-trees [
+    make-trees verify-trees [
         -1/0. >>parent-index 
         calculate-registers drop
     ] each ;