From 995a96d7e492430c519c008c36297a3eb8c69757 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Wed, 22 Jul 2009 06:19:31 -0500
Subject: [PATCH] compiler.cfg.dominance: fix unit tests

---
 basis/compiler/cfg/dominance/dominance-tests.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/dominance/dominance-tests.factor b/basis/compiler/cfg/dominance/dominance-tests.factor
index d73871c25f..e884e32d78 100644
--- a/basis/compiler/cfg/dominance/dominance-tests.factor
+++ b/basis/compiler/cfg/dominance/dominance-tests.factor
@@ -6,8 +6,7 @@ compiler.cfg.predecessors ;
 : test-dominance ( -- )
     cfg new 0 get >>entry
     compute-predecessors
-    compute-dominance
-    drop ;
+    compute-dominance ;
 
 ! Example with no back edges
 V{ } 0 test-bb