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

optimized. now accepts method-specs

db4
Slava Pestov 2008-12-03 10:44:21 -06:00
parent bea4d80a33
commit e6cb449b19
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/tree/debugger/debugger.factor
View File

@ -125,9 +125,13 @@ M: node node>quot drop ;
: nodes>quot ( node -- quot ) : nodes>quot ( node -- quot )
[ [ node>quot ] each ] [ ] make ; [ [ node>quot ] each ] [ ] make ;
: optimized. ( quot/word -- ) GENERIC: optimized. ( quot/word -- )
dup word? [ specialized-def ] when
build-tree optimize-tree nodes>quot . ; M: method-spec optimized. first2 method optimized. ;
M: word optimized. specialized-def optimized. ;
M: callable optimized. build-tree optimize-tree nodes>quot . ;
SYMBOL: words-called SYMBOL: words-called
SYMBOL: generics-called SYMBOL: generics-called