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

compiler.tree.debugger: Remove make-assoc

db4
Doug Coleman 2012-07-19 17:48:02 -07:00
parent 7240ccb20e
commit 99ec318a98
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -143,7 +143,7 @@ M: word optimized. specialized-def optimized. ;
M: callable optimized. M: callable optimized.
build-tree optimize-tree nodes>quot build-tree optimize-tree nodes>quot
[ length-limit off . ] with-scope ; f length-limit [ . ] with-variable ;
SYMBOL: words-called SYMBOL: words-called
SYMBOL: generics-called SYMBOL: generics-called
@ -155,10 +155,10 @@ SYMBOL: node-count
[ [
build-tree optimize-tree build-tree optimize-tree
H{ } clone words-called set H{ } clone words-called ,,
H{ } clone generics-called set H{ } clone generics-called ,,
H{ } clone methods-called set H{ } clone methods-called ,,
H{ } clone intrinsics-called set H{ } clone intrinsics-called ,,
0 swap [ 0 swap [
[ 1 + ] dip [ 1 + ] dip
@ -168,11 +168,11 @@ SYMBOL: node-count
{ [ dup generic? ] [ generics-called ] } { [ dup generic? ] [ generics-called ] }
{ [ dup method? ] [ methods-called ] } { [ dup method? ] [ methods-called ] }
[ words-called ] [ words-called ]
} cond get inc-at } cond building get at inc-at
] [ drop ] if ] [ drop ] if
] each-node ] each-node
node-count set node-count ,,
] H{ } make-assoc ; ] H{ } make ;
: report. ( report -- ) : report. ( report -- )
[ [