From ff9af6423f9dd197ffd635e203b1a1782601bce2 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 8 Mar 2013 12:34:23 -0800 Subject: [PATCH] compiler.tree.recursive: more use of hash-sets. --- basis/compiler/tree/recursive/recursive.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/tree/recursive/recursive.factor b/basis/compiler/tree/recursive/recursive.factor index ccd4b47643..e6b8a7ea00 100644 --- a/basis/compiler/tree/recursive/recursive.factor +++ b/basis/compiler/tree/recursive/recursive.factor @@ -68,9 +68,9 @@ M: node node-call-graph 2drop ; 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 ) calls>> [ tail?>> not ] filter ; @@ -112,7 +112,7 @@ SYMBOL: changed? inline recursive : detect-loops ( call-graph -- ) - H{ } clone not-loops set + HS{ } clone not-loops set V{ } clone recursive-nesting set [ visit-back-edges ] [ '[ _ detect-cross-frame-calls ] while-changing ]