                 } cleave
             ] each
         ] V{ } make
-    ] change-instructions drop
-
-    bb compute-live-out ;
+    ] change-instructions compute-live-out ;
 
 : init-assignment ( live-intervals -- )
     [ [ start>> ] map ] keep zip >min-heap unhandled-intervals set

: remove-pending ( live-interval -- )
    vreg>> pending-interval-assoc get delete-at ;

:: vreg>reg ( vreg -- reg/spill-slot )
    vreg leader :> leader
    leader pending-interval-assoc get at* [
        drop leader vreg rep-of lookup-spill-slot
    ] unless ;

ERROR: not-spilled-error vreg ;


compiler.cfg.instructions compiler.cfg.linear-scan.allocation.state
compiler.cfg.linear-scan.live-intervals compiler.cfg.renaming.functor
compiler.cfg.ssa.destruction.leaders cpu.architecture
fry heaps kernel make math namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.linear-scan.assignment

