14 lines
384 B
Factor
14 lines
384 B
Factor
USING: accessors assocs 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
|
|
|
|
! never-inline-word?
|
|
{ t } [
|
|
\ + props>> "default-method" of never-inline-word?
|
|
] unit-test
|