basis/compiler/tree/builder/builder-tests.factor

   1 IN: compiler.tree.builder.tests
   2 USING: compiler.tree.builder tools.test sequences kernel
   3 compiler.tree ;
   4
   5 \ build-tree must-infer
   6 \ build-tree-with must-infer
   7 \ build-tree-from-word must-infer
   8
   9 : inline-recursive ( -- ) inline-recursive ; inline recursive
  10
  11 [ t ] [ \ inline-recursive build-tree-from-word [ #recursive? ] contains? nip ] unit-test