compiler.cfg.linear-scan.assignment: forgot that i removed live-intervals>min-heap

diff --git a/basis/compiler/cfg/linear-scan/assignment/assignment.factor b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
index 8ca20183a8b026e20e3d0c33fe293ae150f5fa9e..f0f9739bbc6bac5e685f1b53a1ef0d551c093757 100644 (file)
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@@ -67,7 +67,7 @@ SYMBOL: machine-live-outs
     [ live-out keys vregs>regs ] keep machine-live-outs get set-at ;
 
 : init-assignment ( live-intervals -- )
-    live-intervals>min-heap unhandled-intervals set
+    [ [ start>> ] map ] keep zip >min-heap unhandled-intervals set
     <min-heap> pending-interval-heap set
     H{ } clone pending-interval-assoc set
     H{ } clone machine-live-ins set