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

compiler.tree.recursive: more use of hash-sets.

db4
John Benediktsson 2013-03-08 12:34:23 -08:00
parent 9d43e21563
commit ff9af6423f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/tree/recursive/recursive.factor
View File

@ -68,9 +68,9 @@ M: node node-call-graph 2drop ;
SYMBOLS: not-loops recursive-nesting ; SYMBOLS: not-loops recursive-nesting ;
: not-a-loop ( label -- ) not-loops get conjoin ; : not-a-loop ( label -- ) not-loops get adjoin ;
: not-a-loop? ( label -- ? ) not-loops get key? ; : not-a-loop? ( label -- ? ) not-loops get in? ;
: non-tail-calls ( call-graph-node -- seq ) : non-tail-calls ( call-graph-node -- seq )
calls>> [ tail?>> not ] filter ; calls>> [ tail?>> not ] filter ;
@ -112,7 +112,7 @@ SYMBOL: changed?
inline recursive inline recursive
: detect-loops ( call-graph -- ) : detect-loops ( call-graph -- )
H{ } clone not-loops set HS{ } clone not-loops set
V{ } clone recursive-nesting set V{ } clone recursive-nesting set
[ visit-back-edges ] [ visit-back-edges ]
[ '[ _ detect-cross-frame-calls ] while-changing ] [ '[ _ detect-cross-frame-calls ] while-changing ]