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