11 lines
356 B
Factor
11 lines
356 B
Factor
USING: kernel tools.test compiler.tree compiler.tree.builder
|
|
compiler.tree.def-use compiler.tree.def-use.simplified accessors
|
|
sequences sorting classes ;
|
|
IN: compiler.tree.def-use.simplified
|
|
|
|
[ { #call #return } ] [
|
|
[ 1 dup reverse ] build-tree compute-def-use
|
|
first out-d>> first actually-used-by
|
|
[ node>> class ] map natural-sort
|
|
] unit-test
|