From 5236f327ba6d1b69b75ae92b1ae7c09a8022274d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 2 May 2010 16:22:22 -0400
Subject: [PATCH] compiler.cfg.debugger: add ssa. word to print IR before
 representation selection runs

---
 basis/compiler/cfg/debugger/debugger.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/debugger/debugger.factor b/basis/compiler/cfg/debugger/debugger.factor
index 8cbd23db02..0d74531961 100644
--- a/basis/compiler/cfg/debugger/debugger.factor
+++ b/basis/compiler/cfg/debugger/debugger.factor
@@ -74,8 +74,9 @@ M: insn insn. tuple>array but-last [ bl ] [ pprint ] interleave nl ;
 : mrs. ( mrs -- )
     [ nl ] [ mr. ] interleave ;
 
-: flat. ( quot -- ) test-flat mrs. ; inline
-: regs. ( quot -- ) test-regs mrs. ; inline
+: ssa. ( quot -- ) test-ssa mrs. ;
+: flat. ( quot -- ) test-flat mrs. ;
+: regs. ( quot -- ) test-regs mrs. ;
 
 ! Prettyprinting
 : pprint-loc ( loc word -- ) <block pprint-word n>> pprint* block> ;