From 4f7fd41cf2b3f792d7b19427c173782ca1086473 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@pool-224-36.res.carleton.edu>
Date: Thu, 11 Feb 2010 23:12:17 -0600
Subject: [PATCH] Using original instruction order as a tiebreaker in
 scheduling

---
 basis/compiler/cfg/scheduling/scheduling.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/compiler/cfg/scheduling/scheduling.factor b/basis/compiler/cfg/scheduling/scheduling.factor
index b81efb88ab..fe0cf5cef9 100644
--- 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 ;