steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add a "test-mr." word to compiler.cfg.debugger equivalent to "test-mr mr."

db4
Joe Groff 2009-09-30 11:34:19 -05:00
parent 7e679e1683
commit cb646db54a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/cfg/debugger/debugger.factor
View File

@ -44,6 +44,9 @@ M: word test-cfg
nl nl
] each ; ] each ;
: test-mr. ( quot -- )
test-mr mr. ; inline
! Prettyprinting ! Prettyprinting
: pprint-loc ( loc word -- ) <block pprint-word n>> pprint* block> ; : pprint-loc ( loc word -- ) <block pprint-word n>> pprint* block> ;
@ -79,4 +82,4 @@ M: rs-loc pprint* \ R pprint-loc ;
[ [ defs-vreg ] [ defs-vreg-rep ] bi 2dup and [ 2array ] [ 2drop f ] if ] [ [ defs-vreg ] [ defs-vreg-rep ] bi 2dup and [ 2array ] [ 2drop f ] if ]
bi [ suffix ] when* bi [ suffix ] when*
] map concat ] map concat
] map concat >hashtable representations set ; ] map concat >hashtable representations set ;

2
extra/typed/debugger/debugger.factor
View File

@ -4,5 +4,7 @@ IN: typed.debugger
: typed-test-mr ( word -- mrs ) : typed-test-mr ( word -- mrs )
"typed-word" word-prop test-mr ; inline "typed-word" word-prop test-mr ; inline
: typed-test-mr. ( word -- )
"typed-word" word-prop test-mr mr. ; inline
: typed-optimized. ( word -- ) : typed-optimized. ( word -- )
"typed-word" word-prop optimized. ; inline "typed-word" word-prop optimized. ; inline