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

compiler.tree.propagation.nodes: the loop-nesting variable appears unused

db4
Björn Lindqvist 2015-09-18 15:09:46 +02:00
parent 44092bf78d
commit bb8b77419f
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/nodes/nodes.factor
View File

@ -5,8 +5,6 @@ compiler.tree.propagation.copy compiler.tree.propagation.info
kernel sequences ; kernel sequences ;
IN: compiler.tree.propagation.nodes IN: compiler.tree.propagation.nodes
SYMBOL: loop-nesting
GENERIC: propagate-before ( node -- ) GENERIC: propagate-before ( node -- )
GENERIC: propagate-after ( node -- ) GENERIC: propagate-after ( node -- )

4
basis/compiler/tree/propagation/recursive/recursive.factor
View File

@ -67,8 +67,6 @@ IN: compiler.tree.propagation.recursive
M: #recursive propagate-around ( #recursive -- ) M: #recursive propagate-around ( #recursive -- )
constraints [ H{ } clone suffix ] change constraints [ H{ } clone suffix ] change
[ [
loop-nesting inc
constraints [ but-last H{ } clone suffix ] change constraints [ but-last H{ } clone suffix ] change
child>> child>>
@ -76,8 +74,6 @@ M: #recursive propagate-around ( #recursive -- )
[ first propagate-recursive-phi ] [ first propagate-recursive-phi ]
[ (propagate) ] [ (propagate) ]
tri tri
loop-nesting dec
] until-fixed-point ; ] until-fixed-point ;
: recursive-phi-infos ( node -- infos ) : recursive-phi-infos ( node -- infos )