add a typed-disassemble convenience word to typed.debugger

diff --git a/basis/typed/debugger/debugger.factor b/basis/typed/debugger/debugger.factor
index c5f83c0378c136993185c962cc3e5b348eebd954..dae30fa9d80d7cafec5e0d89e4e7fd0e83ff452e 100644 (file)
--- 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