From 97259c772f13ef45abaec15699517f130a203afa Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 19 Oct 2009 12:26:26 -0500 Subject: [PATCH] add a typed-disassemble convenience word to typed.debugger --- basis/typed/debugger/debugger.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/basis/typed/debugger/debugger.factor b/basis/typed/debugger/debugger.factor index c5f83c0378..dae30fa9d8 100644 --- a/basis/typed/debugger/debugger.factor +++ b/basis/typed/debugger/debugger.factor @@ -1,5 +1,6 @@ ! (c)Joe Groff bsd license -USING: typed compiler.cfg.debugger compiler.tree.debugger words ; +USING: typed compiler.cfg.debugger compiler.tree.debugger +tools.disassembler words ; IN: typed.debugger : typed-test-mr ( word -- mrs ) @@ -8,3 +9,6 @@ IN: typed.debugger "typed-word" word-prop test-mr mr. ; inline : typed-optimized. ( word -- ) "typed-word" word-prop optimized. ; inline + +: typed-disassemble ( word -- ) + "typed-word" word-prop disassemble ; inline