Using original instruction order as a tiebreaker in scheduling

diff --git a/basis/compiler/cfg/scheduling/scheduling.factor b/basis/compiler/cfg/scheduling/scheduling.factor
index b81efb88ab3d3bb43747c560ec94f1c9635025cd..fe0cf5cef9ae5f4c0d20937acacc7c483e603582 100644 (file)
--- a/basis/compiler/cfg/scheduling/scheduling.factor
+++ b/basis/compiler/cfg/scheduling/scheduling.factor
@@ -31,7 +31,7 @@ ERROR: bad-delete-at key assoc ;
     [ [ ready? ] filter roots get push-all ] bi ;
 
 : score ( insn -- n )
-    [ parent-index>> ] [ registers>> neg ] bi 2array ;
+    [ parent-index>> ] [ registers>> neg ] [ insn>> insn#>> ] tri 3array ;
 
 : pull-out-nth ( n seq -- elt )
     [ nth ] [ remove-nth! drop ] 2bi ;