Fixing scheduling for compiler changes

basis/compiler/cfg/finalization/finalization.factor

@@ -8,7 +8,7 @@ IN: compiler.cfg.finalization
 
 : finalize-cfg ( cfg -- cfg' )
     select-representations
-    ! schedule-instructions
+    schedule-instructions
     insert-gc-checks
     insert-save-contexts
     destruct-ssa

basis/compiler/cfg/height/height.factor

@@ -52,4 +52,4 @@ M: insn normalize-height* ;
     rs-height get dup 0 = [ drop ] [ \ ##inc-r new-insn prefix ] if ;
 
 : normalize-height ( cfg -- cfg' )
-    [ height-step ] simple-optimization ;
+    dup [ height-step ] simple-optimization ;