add a typed-disassemble convenience word to typed.debugger

db4
Joe Groff 2009-10-19 12:26:26 -05:00
parent b411f1701a
commit 97259c772f
1 changed files with 5 additions and 1 deletions

View File

@ -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