2015-09-20 05:44:52 -04:00
|
|
|
USING: accessors compiler.tree kernel tools.test ;
|
|
|
|
|
IN: compiler.tree.tests
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
"label"
|
|
|
|
|
"a-child"
|
|
|
|
|
} [
|
2018-08-10 14:04:49 -04:00
|
|
|
"label" f "a-child" <recursive#>
|
2015-09-20 05:44:52 -04:00
|
|
|
[ label>> ] [ child>> ] bi
|
|
|
|
|
] unit-test
|
