typed.debugger vocab with words to run optimizer. and test-mr on the underlying typed...

diff --git a/extra/typed/debugger/debugger.factor b/extra/typed/debugger/debugger.factor
new file mode 100644 (file)
index 0000000..452af16
--- /dev/null
+++ b/extra/typed/debugger/debugger.factor
@@ -0,0 +1,8 @@
+! (c)Joe Groff bsd license
+USING: typed compiler.cfg.debugger compiler.tree.debugger words ;
+IN: typed.debugger
+
+: typed-test-mr ( word -- mrs )
+    "typed-word" word-prop test-mr ; inline
+: typed-optimized. ( word -- )
+    "typed-word" word-prop optimized. ; inline