From e371327ec45734ebd27ade32003c64a0fa45158b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 10 Dec 2014 23:33:07 +0100
Subject: [PATCH] compiler.cfg.ssa.construction.tests: fix tc broken by
 previous commit

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

diff --git a/basis/compiler/cfg/ssa/construction/construction-tests.factor b/basis/compiler/cfg/ssa/construction/construction-tests.factor
index 5d7cf163a7..74f083f768 100644
--- a/basis/compiler/cfg/ssa/construction/construction-tests.factor
+++ b/basis/compiler/cfg/ssa/construction/construction-tests.factor
@@ -14,8 +14,7 @@ IN: compiler.cfg.ssa.construction.tests
 : test-ssa ( -- )
     0 get block>cfg
     dup cfg set
-    construct-ssa
-    drop ;
+    construct-ssa ;
 
 : clean-up-phis ( insns -- insns' )
     [ dup ##phi? [ [ [ [ number>> ] dip ] assoc-map ] change-inputs ] when ] map ;