|
USING: accessors compiler.tree.builder compiler.tree.propagation
|
|
compiler.tree.propagation.inlining kernel math sequences tools.test ;
|
|
IN: compiler.tree.propagation.inlining.tests
|
|
|
|
{ t } [
|
|
[ >bignum 10 mod ] build-tree propagate
|
|
fourth dup word>> do-inlining
|
|
] unit-test
|