compiler.cfg.*: reverting the commit

5fd9e61bc04b054d58b8eeecbe9b5c59f68f2195, caused bad regressions in SIMD code

basis/compiler/cfg/ssa/destruction/destruction-tests.factor

@@ -25,12 +25,3 @@ IN: compiler.cfg.ssa.destruction.tests
     T{ ##parallel-copy { values V{ } } }
     [ cleanup-insn ] V{ } make
 ] unit-test
-
-! coalesce-leaders
-{
-    H{ { 30 60 } }
-} [
-    H{ } clone leader-map set
-    30 60 coalesce-leaders
-    leader-map get
-] unit-test

basis/compiler/cfg/stacks/finalize/finalize.factor

@@ -27,7 +27,8 @@ ERROR: bad-peek dst loc ;
     [ dup n>> 0 < [ bad-peek ] [ ##peek, ] if ] each-insertion ;
 
 : insert-replaces ( from to -- )
-    2drop ;
+    [ inserting-replaces ] keep
+    [ dup n>> 0 < [ 2drop ] [ ##replace, ] if ] each-insertion ;
 
 : visit-edge ( from to -- )
     ! If both blocks are subroutine calls, don't bother

basis/compiler/cfg/stacks/local/local-tests.factor

@@ -60,7 +60,6 @@ IN: compiler.cfg.stacks.local.tests
 {
     V{
         T{ ##copy { dst 1 } { src 3 } { rep any-rep } }
-        T{ ##replace { src 1 } { loc D 0 } }
         "eh"
     }
 } [

basis/compiler/cfg/stacks/local/local.factor

@@ -65,11 +65,9 @@ SYMBOLS: local-peek-set replaces ;
     [ loc>> n>> 0 >= ] filter ;
 
 : changes>insns ( replaces height-state -- insns )
-    [ drop replaces>copy-insns ]
-    [ nip height-state>insns ]
-    [ replaces>replace-insns ] 2tri 3append ;
+    [ replaces>copy-insns ] [ height-state>insns ] bi* append ;
 
-: emit-changes ( replaces height-state -- )
+: emit-changes ( replaces state -- )
     building get pop -rot changes>insns % , ;
 
 : peek-loc ( loc -- vreg )