1 IN: compiler.tree.escape-analysis.check.tests
2 USING: compiler.tree.escape-analysis.check tools.test accessors kernel
3 kernel.private math compiler.tree.builder compiler.tree.normalization
4 compiler.tree.propagation compiler.tree.cleanup ;
6 : test-checker ( quot -- ? )
7 build-tree normalize propagate cleanup run-escape-analysis? ;
10 [ { complex } declare [ real>> ] [ imaginary>> ] bi ]
15 [ complex boa [ real>> ] [ imaginary>> ] bi ]
20 [ [ complex boa [ real>> ] [ imaginary>> ] bi ] when ]