2008-07-24 00:50:21 -04:00
|
|
|
IN: compiler.tree.builder.tests
|
2008-08-15 00:35:19 -04:00
|
|
|
USING: compiler.tree.builder tools.test sequences kernel
|
|
|
|
|
compiler.tree ;
|
2008-07-24 00:50:21 -04:00
|
|
|
|
|
|
|
|
\ build-tree must-infer
|
|
|
|
|
\ build-tree-with must-infer
|
|
|
|
|
\ build-tree-from-word must-infer
|
2008-08-15 00:35:19 -04:00
|
|
|
|
|
|
|
|
: inline-recursive ( -- ) inline-recursive ; inline recursive
|
|
|
|
|
|
|
|
|
|
[ t ] [ \ inline-recursive build-tree-from-word [ #recursive? ] contains? nip ] unit-test
|
