2015-09-20 05:44:52 -04:00
|
|
|
USING: accessors assocs compiler.tree.builder compiler.tree.propagation
|
2015-06-25 12:24:20 -04:00
|
|
|
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
|
2015-09-20 05:44:52 -04:00
|
|
|
|
|
|
|
|
! never-inline-word?
|
|
|
|
|
{ t } [
|
|
|
|
|
\ + props>> "default-method" of never-inline-word?
|
|
|
|
|
] unit-test
|
