1 USING: kernel tools.test compiler.tree compiler.tree.builder
2 compiler.tree.recursive compiler.tree.def-use
3 compiler.tree.def-use.simplified accessors sequences sorting classes ;
4 IN: compiler.tree.def-use.simplified
6 { { #call #return } } [
7 [ 1 dup reverse ] build-tree compute-def-use
8 first out-d>> first actually-used-by
9 [ node>> class-of ] map natural-sort
12 : word-1 ( a -- b ) dup [ word-1 ] when ; inline recursive
15 [ word-1 ] build-tree analyze-recursive compute-def-use
16 last in-d>> first actually-defined-by
17 [ node>> class-of ] map natural-sort
21 [ word-1 ] build-tree analyze-recursive compute-def-use
22 first out-d>> first actually-used-by
23 [ node>> class-of ] map natural-sort