2009-05-28 03:49:51 -04:00
|
|
|
IN: compiler.cfg.useless-blocks.tests
|
|
|
|
USING: fry kernel sequences compiler.cfg.useless-blocks compiler.cfg.checker
|
|
|
|
compiler.cfg.debugger compiler.cfg.predecessors tools.test ;
|
|
|
|
|
|
|
|
{
|
|
|
|
[ [ drop 1 ] when ]
|
|
|
|
[ [ drop 1 ] unless ]
|
|
|
|
} [
|
|
|
|
[ [ ] ] dip
|
2009-05-29 14:11:34 -04:00
|
|
|
'[ _ test-cfg first compute-predecessors delete-useless-blocks check-cfg ] unit-test
|
2009-05-28 03:49:51 -04:00
|
|
|
] each
|