Merge branch 'master' into global_optimization

[factor.git] / basis / compiler / cfg / useless-blocks / useless-blocks.factor

diff --git a/basis/compiler/cfg/useless-blocks/useless-blocks.factor b/basis/compiler/cfg/useless-blocks/useless-blocks.factor
index 91c337e43ad613026f4cde19ea90d18b8cf00b21..cbe006b4d7b893048e59cd60ddae75a2ff4452cc 100644 (file)
--- a/basis/compiler/cfg/useless-blocks/useless-blocks.factor
+++ b/basis/compiler/cfg/useless-blocks/useless-blocks.factor
@@ -43,7 +43,7 @@ IN: compiler.cfg.useless-blocks
 
 : delete-conditional? ( bb -- ? )
     dup instructions>> [ drop f ] [
-        peek class {
+        last class {
             ##compare-branch
             ##compare-imm-branch
             ##compare-float-branch