Fixing scheduling for compiler changes

diff --git a/basis/compiler/cfg/finalization/finalization.factor b/basis/compiler/cfg/finalization/finalization.factor
index aca45fe099c3f8925cc5408c7e7e495dfe15b81e..5440ba6eef6924936c118cd77a73f5266f1c1e9f 100644 (file)
--- a/basis/compiler/cfg/finalization/finalization.factor
+++ b/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

diff --git a/basis/compiler/cfg/height/height.factor b/basis/compiler/cfg/height/height.factor
index 0b9c253c58503ed1579a44a267fdf5078c90e4fd..4471508877a6678c3219f5b337d2bdb6b2a23064 100644 (file)
--- a/basis/compiler/cfg/height/height.factor
+++ b/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 ;