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 -- ) > pprint* block> ;