From 45c66b58afb278b325ff63058d8cf749ed0affa5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 22 Jul 2009 19:18:12 -0500 Subject: [PATCH] compiler.cfg.dcn.rewrite: remove unused word --- basis/compiler/cfg/dcn/rewrite/rewrite.factor | 3 --- 1 file changed, 3 deletions(-) diff --git a/basis/compiler/cfg/dcn/rewrite/rewrite.factor b/basis/compiler/cfg/dcn/rewrite/rewrite.factor index e91aa248e6..bbc6783f79 100644 --- a/basis/compiler/cfg/dcn/rewrite/rewrite.factor +++ b/basis/compiler/cfg/dcn/rewrite/rewrite.factor @@ -14,9 +14,6 @@ IN: compiler.cfg.dcn.rewrite peek-in swap [ peek-out ] [ avail-out ] bi assoc-union assoc-diff ; -: remove-dead-stores ( assoc -- assoc' ) - [ drop n>> 0 >= ] assoc-filter ; - : inserting-replaces ( from to -- assoc ) [ replace-out ] [ [ kill-in ] [ replace-in ] bi ] bi* assoc-union assoc-diff ;