X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fcompiler%2Fcfg%2Fuseless-blocks%2Fuseless-blocks.factor;h=cbe006b4d7b893048e59cd60ddae75a2ff4452cc;hp=91c337e43ad613026f4cde19ea90d18b8cf00b21;hb=9e987e86427b4de5fd91994a1e18a93560e4802f;hpb=d558545b65870e64c16fa1d5688d6e90dc692886

diff --git a/basis/compiler/cfg/useless-blocks/useless-blocks.factor b/basis/compiler/cfg/useless-blocks/useless-blocks.factor
index 91c337e43a..cbe006b4d7 100644
--- 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