From 7cfc63af51a1a06c01531189e538318742b7164e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 22 Sep 2009 17:56:50 -0500 Subject: [PATCH] compiler.tree.propagation.branches: M: #phi propagate-around was unnecessary --- basis/compiler/tree/propagation/branches/branches.factor | 4 ---- 1 file changed, 4 deletions(-) diff --git a/basis/compiler/tree/propagation/branches/branches.factor b/basis/compiler/tree/propagation/branches/branches.factor index 5756f78bfd..b8861a6292 100755 --- a/basis/compiler/tree/propagation/branches/branches.factor +++ b/basis/compiler/tree/propagation/branches/branches.factor @@ -155,10 +155,6 @@ M: #phi propagate-after ( #phi -- ) ] 3each ] [ drop ] if ; -M: #phi propagate-around ( #phi -- ) - ! Is this necessary? - [ propagate-before ] [ propagate-after ] bi ; - M: #branch propagate-around dup live-branches >>live-branches [ infer-children ] [ annotate-node ] bi ;