From e371327ec45734ebd27ade32003c64a0fa45158b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= 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 ;